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_ Software development isn’t a 
mountainous task once you 
eliminate the high C errors. 














When you can find and fix bugs at 
the earliest possible moment, creating 
software stops being such an uphill grind. 

And the Smart/C Environment makes 
it possible. It’s a complete, fully-integrated 
development environment for C that saves 
you from the creativity-inhibiting cycle 
of edit, compile, re-edit, re-compile, link, 
load, test, re-edit, re-compile, etc., ad 
infinitum. Smart/C puts the fun back in 
programming, because you spend your 
time creating... not waiting. 

Here’s why. Syntax errors are elimi- 
nated automatically as code is entered. 
Smart/C’s highly integrated editor and 
interpreter allow you to interpret your pro- 
gram at any time in the creation process, so 
logic errors can be ferreted out as soon as 
the algorithm exists—long before any 
compile, link, or load. 

The complete integration of the edi- 
tor and interpreter means you can stop 
anywhere in the interpret cycle, edit, and 
then go right back into the interpreter 
exactly where you left off. Not only that, 
the screen-oriented user interface lets you 
see all operations, even interpretation, 
right on the listing of the code. 
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And to make maintenance program- 
ming easier, Smart/C’s Migrator allows 
existing C code produced with any editor 
to be modified and run within the Smart/C 
Environment. 

All of which makes Smart/C an excel- 
lent tool. It’s flexible, non-restrictive, and 
lets you create elegant, readable, error- 
free programs that you can watch run with 
a great feeling of satisfaction. 


Smart/C" 


Free 
Demo Disk! 


To fully appreciate Smart/C, you have to see it in 
action. For your free IBM PC MS-DOS demo disk, call 
us. Or write us on your company letterhead. 

AGS Computers, Inc., Advanced Products Division, 
1139 Spruce Drive, Mountainside, NJ 07092. 
800-AGS-1313. In NJ, 201-654-4321. 










DIT 
COMPILE 








APILE RE-TEST RE- 


TEST RE-EDIT 
RE-COMPILE RE-TEST 
RE-EDIT RE-COMPILE RE- 
reves 


Smart/C Features 


The Smart/C Environment 

O Fully integrated editor and interpreter 
O Only one load brings them both in 

0 One command set 

CO Move between one another at will 


Syntax Directed Editor 

O vi-like command set 

O Automatically provides formats for blocks, for, 
case and if statements 


Interpreter 

O Current module can call external modules during 
interpretation 

©) Has Include capability 

O Totally precompilation—no incremental compile 

O Can interpret partially defined files allowing for 
rapid prototyping 

O Variable speed of interpretation 

© Multiple windows with user-defined sizes 


The Smart/C Migrator 

CO) Allows C code produced with any editor to be 
interpreted by Smart/C 

OC Reformats for readability 


Smart/C has been ported to UNIX™ System V Release 2, 
Berkeley 4.2, Xenix,™ and MS-DOS. Versions run on 
8086- and 68000-based machines, as well as proprie- 
tary architectures. Smart/C runs on PCs, micros, 
supermicros, minis, and even mainframes. 


Trademarks—Smart/C: AGS Computers, Inc.; UNIX: AT&T Bell Labs; 
Xenix and MS-DOS: Microsoft Corp; IBM PC: IBM Corp. 
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Professional Pascal — i y 
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- big and /al 

! Suitable for ROM. 
Expreesianere 
Long/short integer mixes : 
Set constant expressions | 
Set elements in the range-231,.231-1 or 0..256 
Type casts 

Concat for concatenation of all strings 


data abstraction from CLU) 
to string variables of differing lengths 





No matter what Pascal or chip you choose, 
recompile with the fully compatible, 

across all implementations, 

Professional Pascal. 


We're Functional and Fast 

and Serious about our 

products. We've been providing flexible 
and economical solutions for software 
developers since 1974. 


Microtec Research has the answer. 


Microsoft has a problem. 
Professional Pascal. 


The 22 features listed above 


SSS ATC CSC Professional Pascal is more than just 


powertul features. It generates the 
most efficient code you've ever seen 
for 8086/8087/8088/186/188/ 


We were never accused of humility - only 


Beginning with product concept, solid software development tools. 





LZ 


3930 Freedom Circle, Suite 101, Santa Clara. CA 95054 Mailing Address: P.O. Box 60337, Sunnyvale, CA 94088 


Professional Pascal is a trademark of MetaWare, Inc. 


286/287 in 5 memory models. 


Actually 35 positive differences 
exist in our favor. 


In a direct comparison - 
eRe 


MICROTEC* 
RESEARCH 


Microtec is a registered trademark of Microtec Research, Inc. 


through development, quality assurance, 
and post-sales support - Quality, 
Compatibility and Service are the 

OT LcTAcIELAS SN AAO) eke Cre 
Research apart from others. 


If you’re a serious software developer, 


shopping for software development tools, 


call or write today for more information. 
800-551-5554 In CA call (408) 733-2919 


Circle no. 38 on reader service card. 


Microsoft is a registered trademark of Microsoft Corporation. 
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Borland Does it Again: 
SuperKey $69.95 


Sure, ProKey™ is a nice little program. But when the people who brought you 
Turbo Pascal and SideKick get serious about keyboard enhancers, you can 
expect the impossible . . . and we deliver. 


Total ProKey compatibility. Every Prokey Macro file may be 
used by SuperKey without change so that you may capitalize on 
all the precious time you've invested. 


Now your PC can keep a secret! SuperKey includes a resident 
file encryption system that uses your password to encrypt and 
decrypt files, even while running other programs. Two different 
encryption modes are offered: 


1. Direct overwrite encryption (which leaves the file size un- 
changed) for complete protection. At no point is a second file 
that could be reconstructed by an intruder generated. Without 
your secret password, no one will ever be able to type out your 
confidential letters again! 


2. COM or EXE file encryption which allows you to encrypt a 
binary file into an ASCII file, transmit it through a phone line as a 
text file and turn it back again into an executable file on the 
target machine (only of course if your correspondent knows the 
secret password!). Now, you will even be able to Secretly ex- 
change programs through Public Bulletin Board Systems or 
services such as CompuServe. 


Totally memory resident at all times, gives SuperKey the ability 
to create, edit, save and even recall new or existing macro files 
anytime, even while running another program. 


Pull down macro editor. Finally, a sensible way to create, edit, 
change and alter existing macro definitions. Even while using 
another application, a simple keystroke instantly opens a 
wordprocessor-like window where you're allowed to see, 
edit, delete, save and even attach names to an indi- 
vidual macro or file of macros, and 
much more. 
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ALL FEATURES RESIDENT IN RAM AT ALL TIMES 
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RESIDENT PULL-DOWN MACRO EDITOR 
RESIDENT FILE ENCRYPTION 

PROKEY COMPATIBILITY 

DISPLAY PROTECTION 

ABILITY TO IMPORT DATA FROM SCREEN 
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CONTEXT-SENSITIVE ON-LINE HELP SYSTEM 
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Superb software at reasonable prices! 
here is much more to SuperKey. Maybe the best 

to buy SuperKey is that it is a Borland 

tional Product. Each one of our products 

t in its category. We only believe in 

tely superb software at reasonable prices! 


ou can’t refuse. 4 $69.9 5 ¢ 
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The View from Mid-Year 


These are the articles that generated the most reader response in recent months: 


January, “‘Fatten Your Mac’’ by Thomas LaFleur and Susan Raab, and ‘‘Archiv- 
ing Files with CP/M 80 and CP/M 86’’ by Ian Ashdown 


February, Excerpts from Fire in the Valley by Paul Freiberger and Michael 
Swaine, and *“‘CP/M Exchange,’’ in which Bob Blum discusses buffered disk I/O 


March, Richard Stallman’s ‘‘GNU Manifesto,’’ and Dave Cortesi’s ‘‘Tour of 
Prolog’’ 


April, Allen Holub’s general purpose Quicksort routine in ‘‘C Chest’’ 
May, “‘Solid Shape Drawing on the Commodore-64’’ by Richard Rylander 


This month, Dean Gengle, our featured author, asks how we are to maintain democ- 
racy in an information age. There is more to telecommunications than baud rates 
and band widths! Special thanks to Ian Ashdown of byHeart Software and Steven 
Bellovin of AT&T Bell Laboratories for serving as referees. 


Next month we deliver three hardware articles: ‘‘Build a Custom PC or Clone,”’ 
‘“The Ultimate Parallel Print-Spooler,’’ and the feature ‘‘Designing a Real-Time 
Clock for the S-100 Bus.’’ In ‘*16-Bit Toolbox,’’ Ray Duncan presents MSDOS 
installable device drivers with an overview of the Unix device drivers which inspired 
them. Allen Holub, in ‘*C Chest’’ offers an MSDOS directory utility which includes 
a multicolumn print utility. ‘‘Computer Calisthenics’’ will announce the winners 
and answers to Michael Wiesenberg’s recent puzzle competition. We will also 
introduce a new column, “‘Mac Toolbox,’’ to provide the background needed to 
write programs that really make use of the Macintosh’s capabilities. 


August, we’ll C. 
In September we’ll take a practical look at an academic subject: Algorithms. 


October Forth issue: Leo Brodie will report on the implications of the Novix chip 
for programmers. We also expect to cover Dr. Alan Winfield’s Forth machine: an 
English job, with racing stripes. And we’ll review Neon, a Forth-based, Smalltalk- 
like language for the Mac. 


November: Programming Tools for Modula-2 Programmers. 


Ll CH 


Randy Sutherland 
Editor 


December: Programmer’s View of GEM. 


Referees 


Ian Ashdown, byHeart Software 
Steven Bellovin, AT&T Bell Laboratories 
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down at the bottom of the page. 3 
[1] How many computer books have been published in the last five 
years with the title Up and Running? 

[2] How many C compilers are available for the IBM PC? 

[3] How many IBM 360/75s were there installed in 1979? (Source: Inter- 
national Data Corporation. ) 

[4] How many DEC PDP-8s? (Source: ibid.) 

[5] How many computer magazines folded in 1984? (Source: Marketing 
Technology. ) 

[6] What do you call a computer company that drives away people like 
Steve Wozniak and Andy Hertzfeld, pretends that the division keeping the 
company alive doesn’t exist and thinks that it can make a machine a home 
computer or a portable by fiat? (Hint: it starts with an A.) 

[7] Adam Osborne is predicting that within a year virtually all microcom- 
puter software will sell for under $100 and Phillippe Kahn has been heard 
making predictions of wealth for Borland personnel that sound suspiciously 
like those we heard from Osborne Computer Company executives on 60 Min- 
utes a few years ago. Is Osborne emulating Kahn, or is Kahn emulating 
Osborne? 

[8] By what ratio will Bill “The Cracker” Landreth’s royalties for his book 
Out of the Inner Circle exceed the fine he paid when convicted of wire fraud? 
(Hint: his fine was half the dollar amount of the damage that he says the FBI 
did to his equipment in confiscating it. ) 

[9] What do you call an Association for DAta-Processing Service Organi- 
zations that responds to the vehement rejection by the Microcomputer Man- 
agers’ Association of its copy-protection proposal (a plan that MMA threat- 
ened to respond to by boycotting participating vendors) by saying ‘“‘Corporate 
America would find it hard to turn its back on the [software] these companies 
are offering’? (Hint: it starts with an A.) 

[10] Back in February, San Francisco police lieutenant Thomas Suttmeier 
admitted that he had for the preceding two months had access to all computer 
files in the city’s criminal justice system, including the public defender’s files 
of defense strategies and files of the office that handles civilian complaints 
against the police. In fact, any police officer with access to the computer could 
have tapped into the files by typing ‘““Tom’s Menus.” What can be done to 


prevent such abuses of power? 


Michael Swaine 


Y ou’ll find the answers to this month’s Industry Awareness quiz upside 


‘SUOIM SuIy}AUR Op }.Upnom Aay] ‘aJay a21j0d ay} jnoge BUIyTe} 31,94 
‘snolles og :[Q[] ‘UesoITY :[6] “1:001 ‘aVeWse saNeAIOsUOD Ag :[g] ‘Ised 
94} JoqUISUISI IO SsIOssadapaid aspo;MOuUyoe ‘d}eIWI ‘9}e[NUWIAa JOU Op sInoU 
“eidaiqUq “JoyieN :[L] uesorry :[9] ‘¢¢ :[$] ‘so9've [pb] sz [¢] ‘yuo ixoU 
WY} SUIMATADI 91,944 “USZOP OM} JS¥Q] HV :[Z] 9014) ISe9] IV :[]] :sIoMSUY 


Dr. Dobb’s Journal, June 1985 


Ea 















~ Other r people make modems for telecommunications 

a our new Courier 2400™ modem is made for busi- 
“ness. This modern modem transmits, over the phone, 
240 characters a second, enabling you to upload or 
= ae data at twice the Pe of a 1200 bps 








oy is aie CCITT and Bell comet It vecoond: 
to the full AT command set, allowing you to use any 
-. of the popular telecom software packages, including 
- Telpac™ by U.S. Robotics, Crosstalk”, PC Talk™, 
= Smartcom™ and many 
‘others. And the entire AT 
command set and S-register 
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underside of the unit. 

_ Courier 2400 is accom- 

ay Cee - modating in other ways too. 

| It lets yOu ae the length of each call, tells you (on 

- §creen) the status of a call in progress, and even fea- 
tures an adjustable speaker to provide audio phone 
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And to get the most 


functions are displayed on — 
“help screens’ and again- 
‘summarized for you on the 










jine monitoring. Courier can test itself 
in both answer and originate modes, 
and automatically adjusts from 2400 
bps to 1200 or 300 bps. And a powerful 
automatic equalizer assures nearly 
perfect performance on every call. 


At $699, you'll not find more modem for 
the money. If you prefer an internal 
slot modem for IBM-PC and compatible 


Microlink 2400" computers, our new Microlink 2400™ 


will deliver the same superior performance at the 
same affordable price. | 


out of either Courier 
or Microlink. ask for 
new, improved Telpac 
telecommunications 
software with easy to 
use windows. 

We set out to build — 





Bottom aa Courier 


the best modem on the market. Now, it’ s ready, Once 
you try Courier or Microlink, we think you'll agree — 
we re not exaggerating one bit. 


courier 


by U.S. Robotics, Inc. 


8106 McCormick Bivd. 

Skokie, IL 60076 

Phone: (312) 733-0497 

Telex: 650-186-3130 

Outside tilinois: 1-800-Dial ue 









Prolog 

Dear DDJ: 

I enjoyed reading your March [1985, 
#101] issue, especially the article en- 
titled “Programming In Logic.” I am 
an avid believer in Prolog, hoping to 
see it continue to catch on in the US. 

I’m writing to you in part to thank 
you for helping promote an under- 
standing of logic programming and 
Prolog. I am also writing to let you 
know that while the table of sources 
of Prolog was a terrific addition to 
the article, it was not complete. 
Arity, a spin-off from LOTUS Devel- 
opment Corporation and recently 
funded by LOTUS, is in the business 
of building sophisticated Prolog tools 
and applications. 

We take great pride in having built 
Arity/Prolog, a highly optimized and 
extended version of Prolog. We have 
two products available now: the 
Arity/Prolog Compiler and Inter- 
preter and the Arity/Prolog Inter- 
preter. We are also very excited 
about our upcoming products. 

Sincerely, 

Meredith Bartlett 
Arity Corporation 
336 Baker Avenue 
Concord, MA 01742 


Dear DDJ: 

Congratulations on your Prolog is- 
sue. The articles, together with Dean 
Schlobohm’s Tax Advisor program, 
provide an excellent introduction to 
Prolog. 

I would just like to add, for your 
readers’ information, the Quintus 
name to John Malpas’ list of sources 
of Prolog. Quintus supplies a high- 
performance Prolog development 
system for the Sun workstation, and 
DEC Vax under Unix 4.2 and VMS. 
Quintus Prolog Release 1.0 features 
an incremental compiler, integrated 


Emacs text editor, comprehensive de- 
bugger, style checker, C interface, 
on-line help system, and a high de- 
gree of compatibility with DEC-10/ 
20 Prolog and C-Prolog. In addition, 
Quintus distributes DEC-10/20 Pro- 
log as an unsupported product. 

Sincerely, 

David Warren 

Quintus Computer Systems 

2345 Yale Street 

Palo Alto, CA 94306 


Capitalism vs. 
Stallmanism? 

Dear DDJ: 

Although I am no fan of Unix, I read 
Richard Stallman’s ‘‘Manifesto”’ 
with delight. Here is a true adherent 
to the Hacker ethic! Mr. Stallman’s 
militant advocacy is enhanced by his 
well-written arguments. Many may 
find points to dispute in his state- 
ment, but all will find it thought-pro- 
voking and interesting. 

I wish him and his associates luck. 
The computer industry needs to be 
turned upside down every so often. 
Mr. Stallman seems just the fellow to 
do it this time. Gee—maybe I ought 
to reconsider my dislike of Unix—I’d 
hate to be left out of the fun when 
GNU arrives! 

Yours, 

James F. Glass 

18653 Ventura Boulevard 
Suite 351 

Tarzana, CA 91356 


Dear DDJ: 
Richard Stallman’s “The GNU Man- 
ifesto” in your March issue made me 
furious. I’d love to take 5 pages to dis- 
pute all of his 5 pages, but I’ll confine 
myself here to 2 major points. 

First, Stallman doesn’t believe in 
property rights. As evidence on a 
small scale, note the omission of the 
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usual “Unix is a trademark of Bell 
Labs” in his article, which was pres- 
ent in every advertisement in that is- 
sue. Stallman purposely omits this 
because he doesn’t recognize their 
claim to the name Unix. 

However, if it hadn’t been for all 
the time and money invested by Bell 
Labs in development, then Unix 
would not be as widespread, popular, 
or valuable as it is today. If Unix had 
no value, then neither would GNU. 
(To see this, reread Stallman’s arti- 
cle, substituting “Glorp” for “Unix” 
and see if he still makes sense.) In 
effect, Stallman is happy to take full 
advantage of Bell Labs’ investment, 
with no recompense to them. Would 
you spend your time and money de- 
veloping software, only to have Stall- 
man copy it and give it away for free? 
I wouldn’t. (In fact, Stallman 
wouldn’t even give you the choice. He 
states: “the desire to be rewarded for 
one’s creativity does not justify de- 
priving the world in general of all or 
part of that creativity.”’) 

Second, Stallman’s explicit philos- 
ophy is socialist redistributionism. 
He states that “all sorts of develop- 
ment can be funded with a software 
tax.” Stallman wants to tax me to 
fund him to develop software he will 
give away for free. Is this how you 
want your tax money spent? Not me. 

Stallman states: “the fundamental 
act of friendship among program- 
mers is the sharing of programs’’; 
“good system software [should be] 
free, just like air”; what deserves a 
reward is “social contribution.” In 
other words, the Good is what is so- 
cial, shared, free. On the other hand, 
he states: ‘“‘marketing agreements... 
forbid programmers to treat others as 
friends”’; “‘users [are] at the mercy of 
one programmer or company that 
owns the sources’; software vendors 
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The Ultimate Programmer's Editor 


WENDIN’S X/Z" 





Cae 


SUPER PROGRAMMERS edit in XTC to make software 
development a snap! Just look at these powerful 


features: 


| TITASKING 











XTC’s built-in multitasking lets you run your macros in the foreground 
or independently in the background while you continue editing. A back- 





ground process has full access to editor resources, and can be used to 
translate code from one language to another in REAL TIME, print files in the back- 
ground, or even scan syntax while you type in code. Best of all, you can use XTC to edit source 


and documentation in any programming language! 


All DOS compilers and utilities can be executed from 
within XTC using a single keystroke. While it runs, 
XTC captures your compiler’s output and redirects 
it into your text, so you can compare compiler 
messages with your source code ON THE SAME 
SCREEN. And using XTC’s macro language, Turbo 
Pascal is literally only a keystroke away. You can 
use other compilers and utilities inside XTC too — 
like Lattice ‘‘C,’’ Microsoft Pascal, and IBM's Basic, 
to name a few. 


XTC has the most powerful macro language in the 
editing world. XTC’s macros aren't just keystrokes 
assigned to keys; they’re real programs that can be 
used to automatically edit source code and data 
files. Like any real programming language, XTC has 
control structures like IF THEN ELSE, WHILE DO, 
REPEAT UNTIL, FOR NEXT, DUPLICATE N 
TIMES, INDEFINITE LOOP, EXIT, and BREAK 
LOOP. XTC also has INTEGER, BOOLEAN, and 
STRING variables to hold numbers, conditions, and 
pieces of text. 


With XTC you can display up to 8 different files or 
parts of the same file on the screen at once. XTC’s 
windows are programmable and can even be linked 
together to share files. XTC also has 20 other buffers 
that you can use to hold files and blocks of text. 


If you already know Wordstar commands, then you 
don’t need to learn a new set of commands. If you 
want to customize XTC, just write macros to emulate 
the key layout you’re used to. XTC can also read 
Wordstar files, and can even strip off all of the non- 
standard high bits with a single command. 


XTC lets you edit files entirely in memory (using all 
available memory), or paged to disk, for maximum 
flexibility. You can choose how XTC buffers text. 


e UNDO N TIMES 
e REMOVE WORDSTAR HIGH 


e EDIT GRAPHICS DISPLAYS 
e AUTOINDENTING MODE 


XTC comes with 7,000 lines of source code jam- 
packed onto two DSDD disks. Includes 13 modules 
written in Pascal, and 2 assembly libraries you can 
use to access the PC’s screen, intercept software 
interrupts (like INT 21H functions), allocate and 
deallocate memory, and load and execute pro- 
grams. It’s all included FREE for your recreation and 
enjoyment! 
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e TELEPHONE SUPPORT 


XTC outperforms any other program- 
mable editor on all IBM/PC, /XT, and 
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power of XTC before you buy it, just 
ask for our demo disk (only $10) and 
try it out. When you buy XTC, we'll 
knock 10 bucks off the price. 


To get your copy of XTC now, order 
it over the phone — we can ship it 
the same day you call! Or, send in 


an order, just like this one: 


Macro Compiler 


Shipping, Handling, 
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Ada® is a registered trademark of the U.S. Department of Defense. Turbo Pascal is a trademark of Borland, Inc. XTC is a trademark of Wendin, Inc. 
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[extract] money from users of a pro- 
gram by restricting their use of it”; 
‘a person who enforces a copyright is 
harming society.”’ In other words, the 
Bad is what is individual, owned, 
bought, sold. 

Stallman obviously prefers the for- 
mer, which is characteristic of the 
Marxist ideals of the Soviet Union. 
Me, I prefer the latter, typified by the 
good old capitalist U. S. of A. 

Stallman says he is looking for 
contributions. I would be delighted 
to offer a one-way plane ticket to 
Moscow. 

Sincerely, 

Robert Schwartz 

P.O. Box 1637 
Wakefield, MA 01880 


Dear Richard: 

Hurrah! Three cheers for GNU! Your 
proposal and the philosophy behind it 
are so refreshing, I almost couldn’t 
believe what I was reading in this 
month’s issue of Dr. Dobb’s Journal. 
As you can see, I am ecstatic that 
someone is finally doing something 
about Unix. 

Since about 1978 or so I have been 
going to Unix users’ meetings, and I 
remember meeting Ron Cain at one 
of these meetings before he left SRI. I 
obtained a Unix Version 6 system 
about that time to run on a PDP-11/ 
70 for a company contract. One of 
my colleagues spent a few nights 
writing some very useful programs; 
one was a combination nroff/troff 
marriage that output bit-mapped 
fonts on a Versatec printer. Another 
rotated the nroff/troff output by 90 
degrees so that printed copy came out 
sidewise, but properly formatted on 
the Versatec 11 X8'% fan-fold paper. 
With that system our little company 
was in business, and the number of 
reports and proposals done on that 
system was amazing. We had to re- 
pair the file system now and then, but 
that was a minor thing compared to 
the amount of work that got done. 

Rather than waste your time with 
more of my nostalgia, I want to tell 
you that I have had in mind the same 
idea as you have proposed. After 
some of my friends were involved in 
the secure Unix kernel work at 
UCLA, I began to realize that it was 
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in fact possible to write a Unix-like 
system that would not have the royal- 
ty problems that make Unix (even on 
micros) so ridiculously expensive. It 
is a crime that the micro community 
does not have access to the hundreds 
of programs written in C for Unix 
systems and that so many (inferior) 
wheels are being reinvented. I ob- 
tained a copy of the XINU book and 
have accumulated a library of arti- 
cles on other people’s experiences in 
porting Unix to new machines. I had 
just about everything I needed except 
a C compiler for my (don’t laugh) 
Commodore 64. Recently one has 
been announced by Abacus Software, 
so I am getting all set. 

The C64 is a short-term thing; I 
am looking forward to getting a 
68000-based system soon. My moti- 
vation for wanting to do a system on 
the C64 was to be able to run good 
programs (e.g., a full-screen editor 
like Emacs) on that system. Memory 
limitations will obviously rule out 
multiple users, but if someone comes 
along with a hard disk interface, at 
least limited multi-processing would 
be nice. Already there are switchable 
memory banks available in 64K sec- 
tions up to 512K. 

For what it’s worth, I would like to 
offer my help in your enterprise. This 
would most likely take the form of 
programming assistance. I suspect 
you will get a lot of other offers of 
help as well, now that you have “gone 
public” with your GNU concept. My 
resources are somewhat limited; how- 
ever, it may be possible to get a 
Southern California ““GNU Group” 
going. Perhaps you will spark enough 
interest to form a mailing list of 
volunteers. 

Once again, I am glad someone 
like you has come along, and I hope 
there is some way I can help out. 

Sincerely, 

Rollin V. Weeks 

7130 Marymount Way 
Goleta, CA 93117 


Dear DDJ: 

After reading Richard Stallman’s 
“Manifesto” [March 1985, #101], I 
felt compelled to respond. To begin, I 
am certainly not opposed to the idea 
of a public domain version of Unix, 


nor to public domain software in gen- 
eral. But my initial reaction to Mr. 
Stallman’s sanctimonious outpouring 
was to feel rather insulted. I have 
been a programmer for about ten 
years now, and I don’t believe that 
programmers are any more or any 
less greedy than others in this society. 
In the case of software companies 
supposedly making large sums of 
money selling copyrighted products, I 
rather doubt whether the program- 
mers see very much of the profits. 

I believe Mr. Stallman must be suf- 
fering from a few other fantasies be- 
sides that of a public domain Unix. He 
perhaps forgets that he is living in a 
capitalist society. Of course, every- 
body needs food, even more than free 
software. So food would be distributed 
for free, right? I have no doubt that 
farmers, food processing workers, su- 
permarket clerks, truck drivers and 
others employed in the food industry 
will not let personal greed blind them 
to the logic of this argument. People 
need clothing, housing, medical care 
and education, too. All these things 
are necessities and as such should be 
guaranteed to everyone .... As for 
Mr. Stallman, I wonder how he can 
afford to devote so much of his time to 
this admirable project. Perhaps be- 
cause his previous employer paid him 
such a fat salary that he can afford to 
forget about the dirty business of 
making a living for a little while. 

I am afraid that I might sound al- 
most as self-righteous as Mr. Stall- 
man. I read Dr. Dobb’s for its valu- 
able technical information and for 
enjoyment. If any of your readers are 
concerned about moral or political is- 
sues, I would recommend that they 
subscribe to the New York Guardian. 
And I would also recommend that 
Mr. Stallman stick to technical mat- 
ters, for which I am sure he is highly 
qualified. 

Sincerely, 

David Kettle 

8 Milepost Place, #308 
Toronto, Ont. M4H 1E1 


Dear DDJ: 

I read with excitement Richard Stall- 
man’s “The GNU Manifesto” until I 
reached his justifications for his ap- 
proach. I feel torn because, on the 
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one hand, I applaud his objective, 
but, on the other, I cannot accept his 
rationale of why this is the proper 
approach. 

My problem is that he says that 
“social contribution” should be re- 
ward for an individual’s creativity. In- 
deed, he claims that a personal reward 
is “destructive” because it deprives so- 
ciety of the potential benefits of an in- 
dividual’s creativity. | am a program- 
mer and the owner of a business that 
sells software and from a selfish point 
of view would reject his arguments. 
But I am also a free market advocate 
and I reject his statements on philo- 
sophical grounds which I will attempt 
to enumerate. 

First the wealth of society is in- 
creased whenever individuals trade 
freely. If I charge $100.00 for a pro- 
gram and you freely decide to buy the 
program, we are both richer. I have 
my $100.00, which I value higher 
than the copy of the program, and you 
have the program, which you value 
higher than the $100.00. If we were 
not both richer, then one or both of us 
would not have entered into the trade. 

To say that this is ““destructive”’ to 
society because, by charging, I deny 
the benefits of my program to society, 
is to say that whatever one creates 
does not belong to him, but belongs in 
some larger sense to society, and, 
therefore, to deny it to society is be- 
ing ‘“‘destructive.” 

In a narrow sense Mr. Stallman is 
right. If Lotus Development gave 
away “Lotus 1-2-3” instead of charg- 
ing for it, we would all use it and “‘so- 
ciety” would be richer. The problem 
is that Lotus Development would 
never have created “Lotus 1-2-3” in 
the first place. Further, the hundreds 
of others who think they can do it bet- 
ter than Lotus would not go to the 
effort of attempting to make a better 
“Lotus 1-2-3” without the promise of 
financial reward. In this sense society 
would be poorer because of the free 
software. 

I believe that an individual’s physi- 
cal or intellectual product is his own. 
Unknowingly, he furthers the general 
good by selfishly trading it for the 
most he can get for it. Only a lawyer 
would say that one’s original idea is 
not his own. Only a dictatorship 
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Get the full range of features C pro- 
grammers working in UNIX™ have 
come to expect from their Lint and 
Make utilities. With Pre-C™ you can 
detect structural errors in C programs 
five times faster than you can with a 
debugger. Find usage errors almost 
impossible to detect with a compiler. 
Cross-check multiple source files and 
parameters passed to functions. Un- 
cover interface bugs that are difficult 
to isolate. All in a single pass. Capa- 
bilities no C compiler, with or without 
program analyzing utilities, can offer. 
Pre-C outlints Lint, since you can 
handle analyses incrementally. 


Pre-C’s flexible library approach lets 
you maintain continuity across all 
programs in your shop, whether you 
use Pre-C’s pre-built libraries, func- 
tions you already have, or some you 
might want to buy. 


Plus, you’re not limited to one partic- 
ular library. Pre-C keeps track of all 
the libraries you’re using to make 
sure that code correctly calls them. 


With Pmaker™ you can update and 
track every module in your program. 
When you make a change in any 
source or include file, all you do 


Finally, RT rand 
Make for MS*- DOS 








is run Pmaker. It will recompile 
changed modules and relink your 
program. With any compiler or linker 
you choose. Pmaker can update an 
object module library when one or 
several of the object modules are 
changed. You can use Pmaker to 
handle any task when a change 
requires several steps. 


pmaker 





Pre-C by Phoenix. $395. Pmaker 
by Phoenix. $195. 

Call (1) 800-344-7200. 
In Massachusetts (617) 762-5030. 

Or, write: Phoenix Computer 
Products, Corp., 1420 Providence 
Highway, Suite 115, Norwood, 
MA 02062. 


PROGRAMMERS’ PFANTASIES™ BY PHOENIX 


Programmers’ Pfantasies, Pre-C, and Pmaker are trademarks of Phoenix Computer Products Corporat 
MS is a trademark of Microsoft Corporation. UNIX is a trademark of AT&T Bell Laboratories. 
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would steal it from the author. 

The proof is in the pudding. Today 
we see hundreds of thousands of pro- 
grammers working at what they love 
and doing it to maximize their own 
rewards. The individual is supreme. 
The marketplace decides who wins 
and loses. Society benefits by this 
enormous effort. If we follow Mr. 
Stallman’s philosophy, we have to el- 
evate “society” to a higher level than 
the individual. This I cannot do. In- 
deed, wars have been fought and 
blood spilled over these very ideas. 

Yet, I wish him every success with 


GNU. I don’t know how he keeps food 
on the table during his efforts, but as 
he said, his reward is in his love of 
programming, the pride of seeing his 
work being used, the recognition of 
his peers, and just knowing he has 
contributed something to the world. 
For some, this is more important than 
money. Indeed, if given independent 
means many more would follow the 
same path. 

I hope he succeeds with GNU (I 
love his recursive name!) because for 
all the reasons he mentions, I could 
be a beneficiary. I also wonder 


whether the success of a “free” oper- 
ating system will close the door to 
other operating systems that might 
be developed if there were some mon- 
ey to be made. He may find that in 
succeeding in his quest, in the long 
run he may hurt the “society” that he 
was hoping to enrich. On second 
thought, there is nothing to worry 
about, for if there is a need for a bet- 
ter operating system than GNU in the 
future, people will be willing to pay 
for it. 

Jim Harlan 

Cogitate, Incorporated 


24000 Telegraph Rd. 
Southfield, MI 48075 


BU Patched 

Dear DDJ: 

I read Jim Rosenberg’s Letter to the 
Editor [March 1985, #101] regard- 
ing my article “Archiving Files with 
CP/M-80 and CP/M-86” [January 
1985, #99], and would like to respond 
to his comments regarding BU and 
CP/M. 

Mr. Rosenberg is correct in stating 
that the BDOS of CP/M v2.2 does not 
reset file attribute bit t3-prime when- 
ever a file is opened, written to and 
closed. In this matter I admit to being 
mistaken. I can also confirm that 
Dave Cortesi’s book Inside CP/M is 
also wrong in stating (p. 222) that 
“the BDOS sets t3’ to 0 whenever it 
updates a directory entry, that 1s, 
whenever the data map of an extent is 
altered.” 

However, Mr. Rosenberg chose to 
ignore the second part of my state- 
ment: that a directory entry is 
changed if it is renamed (or created). 

In this case the BDOS most definitely 
spake Via sets t3-prime to zero, and it is this 
aoe 1) fact upon which depends the success 
= of both BU and (presumably) QBAX. 
This can be demonstrated by setting 
the file attribute t3-prime of a file 
with a disk utility, using either the 
built-in ““REN” command or BDOS 
function 23, “‘Rename File,” to 
change the file’s name, and then ex- 
amining t3-prime again. 

To quote Mr. Rosenberg: ‘Our 
own product, QBAX, will function 
without patching for programs such 
as word processors and compilers 
that change files by rewriting them 
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so you can get more from your Personal Computer. * 
You are interested in more productivity. Davong designed the 
DataSystem for convenience, versatility, and reliability. 

Convenience is built-in. Like the package design that 
slips under your monitor. And installation that’s a snap. Put 
one adapter ina short slot. Connect one cable. Plug it in and 
go. And you don’t need to be an expert to use our software. 
Menu-driven programs with simple commands and on-line 
information put you at ease. 

Versatility is unsurpassed. DataSystem tape accepts 
true DOS commands (COPY, etc.) so you can make file-by-file 
backups. You can even run programs from tape. Or, back up 
entire disk volumes in minutes with our Tape Manager pro- 
gram. Your data speeds to tape at one million characters a 
minute. Just data. DataSystem doesn’t waste your tape space 
with non-data areas. And tape capacity is always guaranteed. 


*IBM® PC, XT, AT, and many compatibles 


IBM® is a registered trademark of International Business 
Machines Corporation. 

Multi-OS®, Davong DataSystem™, and Davong MultiLink™ are 
trademarks of Davong Systems, Inc. 


Engineered for _ 
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Choose from 10, 21, 32 or 43-megabyte disk sizes plus 24 
megabytes of removable tape storage. Emulate an XT with 
Davong Fixed Disk software or enhance your computer’s 
performance with optional Davong Multi-OS® software. And 
Multi-OS readies the DataSystem for Davong MultiLink™ 
networking. 

Reliability is assured. Only fully-tested components 
are used in the DataSystem. Before it leaves quality control, 
each drive must pass days of rigorous system-level tests—and 
the rack. Each DataSystem must survive a torturous burn-in 
with no problems. Only then do we consider it good enough for 
your desk. 

If you have the Data, Davong has the System for you. 
Convenience, versatility and reliability. Why settle for less? 


See us at Comdex/Spring, Booth #3232. 
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Davong Systems, Inc. 
217 Humboldt Court 
Sunnyvale, CA 94089 
Phone: (408) 734-4900 
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from scratch.” This is exactly what 
BU will do. Since “BU is almost use- 
less under 2.2 unless BDOS is patched 
to install support for the archive bit,” 
cannot the same be said for QBAX 
under a standard CP/M BDOS? 

The answer is of course no. BU is a 
very useful program, as a number of 
satisfied users have written to tell me. 
Its one failure is that it cannot detect 
files that have been updated in place 
(i.e., changing records through BDOS 
random access calls or by appending 
records via BDOS sequential write 
calls). To do so would require a modi- 
fied operating system. 


QBAX, according to a review by Da- 
vid Fiedler in the October 1983 issue of 
Microsystems, is a fine commercial 
software product. The review covered 
QBAX1, which does not support hard 
disks. Since that review, Amanuensis 
has released QBA X2, which offers sup- 
port for hard disks, automatic split file 
restoration, version numbering and 
date stamping. Both products appar- 
ently include the BDOS patch, referred 
to by Mr. Rosenberg, that implements 
the archive bit feature for those files 
updated in place. 

I wrote BU as a basic utility pro- 
gram that incorporated and demon- 
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strated a relatively obscure feature of 
CP/M v2.2. Readers were invited to 
add their own enhancements, since 
space limitations prohibited includ- 
ing features such as QBAXI and 
QBAX2 offer. If the Microsystems 
review is anything to go by, I would 
probably recommend the QBAX 
products to a business user of CP/M, 
rather than BU. In this matter, I 
agree with Mr. Rosenberg. I do not 
believe that businesses should entrust 
their data to unsupported public do- 
main utilities. 

Regarding CP/M’s PIP utility, 
some further investigation revealed 
that it behaves exactly as you would 
expect under the explanation given 
above. When a new file is created on 
the destination disk, the archive bit is 
initially zero. The archive bit can be 
set by BU or another utility, and 
thereafter is unchanged by any file 
operation except renaming the file. 

In summary, I wish to thank Mr. 
Rosenberg for his critique of my arti- 
cle, although I feel he did DDJ’s read- 
ers a disservice by failing to mention 
that the archive bit is reset when a 
file is first created or renamed, and 
by strongly implying that BU does 
not work. 

Ian Ashdown 

byHeart Software 

2 - 2016 West First Avenue 
Vancouver, B.C. V6J 1G8 
Canada 


Dear DDJ: 

We noted with interest Ian Ash- 
down’s BU program published in the 
January (1985, #99) DDJ. We also 
noted, as Jim Rosenberg of Amanu- 
ensis reported in a letter in the March 
issue, that the ‘“‘archive bit” t3’ is not 
automatically cleared by the BDOS 
on file writes or renames. 

After examining the BDOS we 
came up with a patch to accomplish 
this under CP/M 2.2. With the patch 
installed, any time a file is written to, 
either randomly or sequentially, the 
“archive bit” will be cleared to zero. 
We have used this with a number of 
different programs including word 
processors, SuperCalc and Microsoft 
BASIC (including writing a single 
random record) and have encoun- 
tered no problems with it. 
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Since a number of your readers 
may be interested in having this facil- 
ity, I am enclosing a printout of the 
patch (see Listing, below). This 
patch assumes that the patch code is 
located outside of the BDOS, proba- 
bly in the BIOS. The changes to the 
BDOS can be made by the BIOS on 
each warm boot, if necessary, though 
there are other ways to accomplish 
this. 

Before making the patches to the 


BDOS, be sure that code to be re- 
placed matches that shown in the en- 
closed patch (the original code is 
commented out in the patch). 

One other approach which we have 
used to implement the patch is to in- 
stall it directly into the BDOS source. 
We have used C. C. Software’s excel- 
lent CP/M Source Code Generator to 
create the BDOS source (we have this 
software available, as well as our own 
EUREKA! disk cataloger). We then 
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substituted Z80 instructions in 
enough places to gather the space we 
needed for the patch and reassembled 
the BDOS and patched it directly 
onto the disk. 
We hope that this patch will make 
BU even more useful to your readers. 
Bruce Haanstra, President 
Mendocino Software Co., 
P.O. Box 1564 
Willits, CA 95490 
DD] 


;Desc:Patch to CP/M 2 BDOS to clear update flag on close or rename of a file 


*Date:02/02/85 
:Time:13:51 


, 
e 
’ 
e 
, 
e 
’ 
e 
’ 


DOSBASE EQU OD800H 
patcharea equ 00000 
updflg equ Ld 
; patch to rename 

org BDOSBASE+822h 
jmp patchl 

; was lxi d,16 
: dad d 
; mov m,a 


=e 


org BDOSBASE+91Ch 
jmp - patch2 

; was JMP BDOSBASE+810h 
org patcharea 


*#**** UPDATE FLAG PATCH ***** 
01/06/85 - by BWH 


=e =e 6 Se Se TE 


=e 66 


BASE OF YOUR BDOS *** 


=e =e Se 


ASSEMBLY *** 


=e Oe 


11=t3' (archive bit) 


patch to clear update flag on a file that has been changed 


(updatel) 


The purpose of this patch is to clear the update flag (8th bit of t3) when a 
file that has been changed is closed. 
clear the update flag on a rename. 


Part of this patch file will also 


x** SET THIS TO THE ADDRESS OF THE 


*** PUT THE ADDRESS WHERE YOUR PATCH 
CODE IS LOCATED HERE BEFORE 


offset to update flag byte in fcb 


this patch forces the directory entry being written to have its update 
flag bit reset to 0 so FD and MDIR can handle ALL updated files. 


patchl: ; RENAME patch 

Lxi d,16 ; move over to desired name 

dad d 

mov m,a ; keep the same user number 

call cliruklg > clear the update flag 

jmp BDOSBASE+827H ; (chgnaml) go back and continue 
patch2: UPDATE flag patch 


call BDOSBASE+55Eh ; (fcb2hl) get address of fcb in dir buffer 
call clruflg ; offset to FD update flag byte (0-11) of fcb 


jmp BDOSBASE+810h ; (updatel) do original stuff 
; 01/27/85 - broke out clearing of update flag so rename can do it too 
; IN -> HL=address of base of FCB with flag to clear 
; USES -> A, HL, DE 
clruflg: clear update flag routine 


=e =e 


lxi d,updflg offset to FD update flag byte (0-11) of fcb 
dad d 

mov a,m > get the current byte 

ani 7FH ; clear 8th bit 

mov m,a ; and put it back 

ret 


=e =e 


End Listing 
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DR. DOBB'S CLINIC 





by D. E. Cortesi 


Printer Out of Shadow 

In the April column, we asked for 
help finding competent maintenance 
for our Diablo printer, but we wrote 
that column back in February, and 
the problem wouldn’t wait. We post- 
ed the same query on several local 
RBBSs (and very glad we were that 
the Oxgate, PicoNet, and Simms 
boards exist). One Eugene Jones 
came through with a recommenda- 
tion of The Printer Works (1961 AlI- 
pine Way, Hayward, CA 94545; 
(415) 887-6116). And they did the 
job: made an informed diagnosis; dis- 
cussed it with us, explaining exactly 
what they would do and what it 
would cost; then did the work. They 
were thoroughly professional, help- 
ful, and prompt. May they get every 
broken Diablo in Silicon Valley. 

But our problems getting the Dia- 
blo fixed have made us wonder: What 
else is hard to get fixed? Who else is 
doing a good job fixing things? If 
you've had maintenance adven- 
tures—with happy endings or other- 
wise—why don’t you describe them 
to us? Especially tell us about repair 
people who know their stuff. Let us in 
on the scams, too (with enough hor- 
ror stories, we can revive ‘‘Dobb’s Ex 
Machina”’), but it would be super if 
we could point to good repair services 
in every major city. 


Watt Duzzit Dew 

We asked in January David Tilton 
asked us: What does this short Z80 
assembly routine do? 


BTS: 
cp (hl) 
Vets, 2 
rl a 
djnz BTS 
2 3k. 
ret 
16 


Only Thomas Cage of Crestview, FL, 
attempted to give us an answer (yea, 
Tom!), and while he got the essence 
of it, he was wrong in detail (boo, 
Tom!). Here is how Tilton described 
it. 

[The routine] actually outper- 
forms the CPIR instruction of the 
Z80 in searching a list of bytes for a 
match by using a binary rather than a 
linear search, but the restrictions on 
the sequence of the list and its place- 
ment in memory make it less than at- 
tractive. 

“On entry, A contains the byte to 
search for, B contains the number of 
levels in the binary tree, and HL 
points to the root of the binary tree. 
One of the unfortunate restrictions is 
that the value of L for the root must 
be Olh. Since the value of H remains 
constant, it is the value of L on return 
that indicates the result. 

“Tt is helpful to think of the list as a 
byte array indexed by L. We start 
with a comparison. If there is a 
match, the second instruction returns 


with L indicating where the match 


occurred. 

“If there was no match, the value in 
the tree was either too large or too 
small. The carry flag will be set if it 
was too large. The next instruction 
multiplies the contents of L by two 
and, if the carry flag was set, adds 
one. The DJNZ instruction checks for 
another level in the tree and, if there is 
one, loops to check the already-select- 
ed node in it. If there is not another 
level, L is set to zero to indicate that 
the byte sought was not in the tree. 

“There are many disadvantages to 
this arrangement. It is inflexible. For 
one thing, a full tree must be main- 
tained; that is, the size of the tree 
must always be some power of two 
less one. It is significantly faster than 
CPIR only for the larger trees. Fur- 


thermore, if you can spare a full page 
of 256 bytes [to hold the tree] then 
there is an even faster way of doing 
the same thing: 


BTL: 
Bees ae 
ld) LAHL) 
ret 


This is, of course, simply a byte look- 
up table. I thought I was being really 
clever with my BTS routine, but it 
turns out to be virtually useless.” 

Oh, now, cheer up. You got deep 
into binary trees, right? It’s very pro- 
found that the successive carry-bits 
shifted into L are a record of the path 
through a tree to the desired node, 
where one means “go left” and zero 
means “go right.”” The binary num- 
ber that defines the path to a node isa 
unique label for that node; it’s basi- 
cally a “Dewey Decimal Number” 
for the node. 

There’s a discussion of this in 
Knuth’s Volume 1, Section 2.3 (espe- 
cially see the answer to Exercise 15, 
p. 315). There also is a connection to 
data compression: if the compared 
values were wider than a byte, their 
binary node labels would be a com- 
pressed representation of them. 


Watt Dozen It Dew 
OK, faithful readers, you didn’t do 
too well on Tilton’s puzzle; perhaps 
you can do better with one from Da- 
vid Ross, of Iowa City, IA. He sends 
the BASIC code you can read in List- 
ing One (page 18). “In theory,” he 
says, “it does something quite re- 
markable. In practice, it doesn’t do 
much of anything: it is extraordinari- 
ly sensitive to roundoff errors. Ques- 
tion: what ought it to do, and to what 
extent can it be made to work?” 
Now, Tilton sent a full explanation 
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of his puzzle. Ross did not. That 
means (since the Intern hasn’t a clue) 
that if you don’t figure it out and ex- 
plain it, nobody will ever know the 
answer. 


Random Probing 

In February we showed a simple gen- 
erator of pseudo-random numbers (a 
PRNG, pronounced “prang’’). We’re 
getting mixed feedback on that; at 
least one reader has written to say it’s 
no good. It would be nice if someone 
would subject it to some rigorous 
testing and tell us. 

In fact, the letters we are seeing in- 
dicate a lot of ignorance about what’s 
good in a PRNG and how to test one. 
Add to that a paper that Mike 
Swaine ran across: “Random Num- 
ber Generation in Microcomputers” 
by Modianos, Scott, and Cornwell in 
Interfaces, Vol. 14, No. 4 (July-Au- 
gust 1984). We aren’t familiar with 
Interfaces; it appears to be a publica- 
tion of The Institute of Management 
Sciences. 

Anyway, Modianos, et al., studied 
the characteristics of the PRNGs in 
various micro BASICs. The net of 
their findings is “that the random 
number generators which are intrin- 
sic to the Apple I+ and Ife (using 
either Applesoft BASIC, Integer BA- 
SIC, or CP/M BASIC), the Osborne 
Executive, and the IBM PC are so 
flawed that we cannot recommend 
their use for simulation studies.” The 
only acceptable PRNGs they found 
were in the HP-86, Apple III, and 
(oddly) the TRS-80 model III. Plus 
one for the Apple published by Hare, 
Faulkner, and Sparks in Call APPLE, 
Vol. 6, No. 1. 

These authors apparently expend- 
ed a lot of time and CPU cycles test- 
ing PRNG; unfortunately, they don’t 
discuss their methods in any detail. 
Sure, that subject has been covered 
many times before, but not for some 
years in this magazine. Volunteers? 


Object Module 

By way of filling up this column, we 
present a module of C code that has 
helped us make some quick-and-dirty 
programs. Sometimes it’s easier to do 
things if you have the ability to allo- 
cate a lot of small objects and free 
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them again in any order. In The C 
Programming Language, Kernighan 
and Ritchie described a pair of func- 
tions, alloc( ) and free( ), to do just 
that. Probably these are in most C 
libraries. 

The compiler we use implements 
an alloc( ), but contains no free( ). 
Alloc( ) alone gives the essential abil- 
ity to allocate chunks of storage for 


buffers and what-not. But we wanted 
to make dozens or hundreds of little 
objects and then discard them again. 
So we did what you’d do: we rolled 
Our own. 

The module for dispensing objects 
appears in Listing Two (page 18). It 
duplicates the functions of alloc( ) 
and free( ), including quite a bit of 
validation to guard against bugs in 


ARE YOU TRYING 
TO COMMUNICATE ? 


C programs can communicate with the world now through the power of 
The Greenleaf Comm Library. Now from the people who brought you The 
Greenleaf Functions General Library for C, comes this rich interrupt driven, 
ring-buffered asynchronous communications capability. 


Over 100 functions in C and assembler to facilitate communications at up to 
9600 baud. Up to eight ports at a time. ASCII or XMODEM. X-On/X-Off too. 
Hayes compatible modems controlled here. Safe too, bet you can’t exit your 
application with interrupts hot. Major applications around the world base 
their communicating applications on The Greenleaf Comm Library. Stop just 
trying and start really communicating. Get your copy of The Greenleaf Comm 
Library today. For all major C compilers, all models, all versions. For the 
IBM PC and just about any machine with MSDOS and an 8086. Comes with 
source code, extensive examples, demo programs, featuring C-Terminal, 
reference card and newsletter. No royalty. $185 


Other Products: The Greenleaf Functions General Library, over 220 
functions for total control of the IBM PC, with source. $185 for the compilers 
listed below. (See ordering instructions below). 


Specify compiler when ordering: Lattice, Microsoft, Computer Innovations, 
Mark Williams, or DeSmet. Add $7.00 for UPS Second Day Air (or $5.00 for 
ground). Texas residents add sales tax. Mastercard, VISA, check, or P.O. 


In stock, shipped same day. 


1) General Libraries 
(Comm Library 
1CI186 Compiler 
LlLattice C 

1) Mark Williams 


PRICES ARE SUBJECT TO 
CHANGE WITHOUT NOTICE. 


$185 
$185 
$349 
$395 
$475 


For Information: 


214/446-8641 


GREENLEAF 
SOFTWARE © 


2101 HICKORY DR. 
CARROLLTON, TX 75006 





Circle no. 43 on reader service card. 


17 


the using code. It adds the useful 
functions of objmax( ) and obj- 
trim( ), which allow you to size an 
object to match the data it will hold. 
The method it uses is not that of 
Kernighan and Ritchie, but rather an 
old scheme that you may not have 
seen before: chaining adjacent blocks 
by fencing them in with length-words. 
The more we use C’s #define, the 
more impressed we are with the flexi- 
bility it gives. In the Object module, 
we used it to define an adjective, 
WORDAT, to stand for the awkward 


cast required to say, “the unsigned 
integer in storage where this charac- 
ter pointer points.” 

The Object module is definitely 
written for 8-bit machines; it relies on 
16-bit addresses stored in 16-bit inte- 
gers. The first step in making it por- 
table would be to convert all the hex 
constants to #defined names. Also, it 
would be more efficient if it started 
the search for a free block at the 
point where it last found or freed one. 
You might enjoy making those im- 
provements. 


Dr ° Dobb ‘S C. linic (Text begins on page 16) 


Listing One 

100, REM BASIC. PUZZLE BY D. ROSS 
105 REM MODIFIED FOR MBASIC BY DEC 
110 DEF FNL(X)=LOG(X)/T 


120 INPUT "K=",K : DIM AS$(K+1) 

130 FOR I=1 TO K+1 : A$(I) = "0" : NEXT I 
140 T = LOG(10) 

150 Z = ASC("0") 

160 AO = K*FNL(2) 

170 B = 1 

180 WHILE B > 0 

190 A = AO+FNL(B) 

200 N = INT(A) 

210 IF N<O THEN GOTO 280 

220 L = A-N 

230° X =.1075 

240 D = INT(X) 

250 AS(K-N+1) = CHRS(D + Z) 

260 B = B-10~*(N-AO+FNL(D)) 

270 WEND 

280 FOR I=1 TO K+1 : PRINT AS(I); : NEXT I 


Listing Two 


/* 
OBJECT..C 


general purpose object-allocation module 


(8-bit systems only, 


Copyright (C) 


1985 David E. 


Cortesi 


430 Sherman Ave #212 


Palo Alto, 


CA 94306 


All rights reserved 


The performance of this design 
won't differ a great deal from that of 
Kernighan and Ritchie. You might 
enjoy analyzing the two and working 
out which is faster, under the as- 
sumption of a high turnover of many, 
small objects. 


DD] 


Reader Ballot 
Vote for your favorite feature/article. 
Circle Reader Service No. 190. 


End Listing One 


relies on 16-bit addresses) 


Permission granted to copy for nonprofit purposes. 


An "object" is a block of storage of at least two bytes. 
Functions in this module manage a pool of storage to 
allocate and reclaim objects. 


unsigned objinit(u) unsigned u 
Initializes a storage pool of size u, returning the 


size of the largest object that may be allocated. (Continued on page 20) 
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Why Professionals Choose Aztec C 


AZTEC C compilers generate fast, compact 
code. AZTEC C is a sophisticated development 
system with assemblers, debuggers, linkers, 
editors, utilities and extensive run time libraries. 
AZTEC C is documented in detail. AZTEC C is 
the most accurate and portable implementation 
of C for microcomputers. AZTEC C supports 
specialized professional needs such as cross 
development and ROM code development. 
MANX provides qualified technical support. 


AZTEC C86/PRO 

— for the IBM AT and PC/XT 

AZTEC C86/PRO provides the power, portabili- 
ty, and professional features you need to 
develop sophisticated software for PC DOS, MS 
DOS AND CP/M-86 based microsystems. The 
system also supports the generation of ROM 
based software for 8088/8086, 80186, and 80286 
processors. Options exist to cross develop ROM 
code for 65xx, 8080, 8085, and Z80 processors. 
Cross development systems are also available 
that target most micro computers. Call for infor- 
mation on AZTEC C86/PRO support for XENIX 
and TOPVIEW. 


POWERFUL — AZTEC C86/PRO 3.2 outper- 
forms Lattice 2.1 on the DHRYSTONE 
benchmark 2 to 1 for speed (17.8 secs vs 37.1) 
while using 65% less memory (5.8k vs 14k). The 
AZTEC C86/PRO system also compiles in 10% 
to 60% less time and supports fast, high volume 
1/0. 


PORTABLE — MANX Software Systems pro- 
vides real portability with a family of compatible 
AZTEC C software development systems for PC 
DOS, MS DOS, CP/M-86, Macintosh, CP/M-80, 
APPLE // +, //e, and //c (NIBBLE - 4 apple rating), 
TRSDOS (80-MICRO - 5 star rating), and Commo- 
dore C64 (the C64 system is only available as a 
cross compiler call for details). AZTEC 
C86/PRO is compatible with UNIX and XENIX. 


PROFESSIONAL — For professional features 
AZTEC C86/PRO is unparalleled. 


Full C Compiler (8088/8086 - 80186 - 80286) 

Macro Assembler for 8088/8086/80186/80286 
Linkage Editor with ROM support and overlays 

Run Time Libraries - object libraries + source 

DOS 1.x; DOS 2.x; DOS 3.x; screen 1/O; Graphics; 
UNIX 1/0; STRING; simulated float; 8087 support; 
MATH; ROM; CP/M-86 

e Selection of 8088/8086, 80186, or 80286 code genera- 
tion to guarantee best choice for performance and 
compatibility 


MAN 


TRS 80 RADIO SHACK TRS DOS is a trademark of TANDY. 
APPLE DOS MACINTOSH is a trademark of APPLE. 








e Utility to convert AZTEC object code or libraries to 
Microsoft format. (Assembly + conversion takes 
less than half the time as Microsoft’s MASM to pro- 
duce MS object) 

e Large memory models and sophisticated memory 
management 

e Support products for graphics, DB, Screen, & ... 

e ROMable code + ROM support + separate code and 
data + INTEL Hex Converter 

e Symbolic Debugger & Other Utilities 

e Full Screen Editor (like Vi) 

e CROSS Compilers are available to APPLE //, Macin- 
tosh, CP/M-80, TRSDOS, COMMODORE C64, and 
ROM based 65xx, and 8080/8085/Z80 

¢ Detailed Documentation 


Pilot Ger GON OA ce cto as a's aun HIN Oe eee $500 
(configured for IBM AT - options for 8088/8086) 


Pade ee SEE PARA | o's ods dee ae pean Dagens $500 
(configured for IBM PC/XT - options for 80186/80286) 


AZTEC C86/BAS includes C compiler (smal! model only), 
8086 MACRO assembler, overlay linker, UNIX, MATH, 


SCREEN, and GRAPHICS libraries, debugger, and 
editor. 

PEA ete CINE 8s nis c, wlage wie ie nite wen a em we $199 
AZTEC C86/BAS (CP/M-86) ..................05. $199 
AZTEC C86/BAS (DOS + CP/M-86)............... $299 
UPGRADE to AZTEC C86/PRO .................. $310 
C-TREE Database with source .................. $399 
C-TREE Database (OD|601) i oe ee eck ee $149 


CROSS COMPILERS 
Cross Compilers for ROM, MS DOS, PC DOS, or CP/M-86 
applications. 


VAX = > GOBSIGORKOCIOSSi kk os se Sewn d tw Adan ew’ $5000 
PDP-11 - > 8086/8Oxxx crosS ................... $2000 


Cross Compilers with PC DOS or CP/M-86 hosts are $750 
for the first target and $500 for each additional target. 
Targets: 65xx; CP/M-80; C64; 8080/8085/Z80; Macintosh; 
TRSDOS; 8086/8088/80186/80286; APPLE //. 


AZTEC C68K 


— for the Macintosh 

For power, portability, and professional features 
AZTEC C68K-c is the finest C software development 
system available for the Macintosh. 

The AZTEC C68K-c system includes a 68000 macro 
assembler, a linkage editor, a source editor, a mouse 
based editor, a SHELL development environment, a 
library of UNIX I/O and utility routines, full access and 
support of the Macintosh TOOLBOX routines, debug- 
ging aides, utilities, make, diff, grep, TTY simulator with 
upload & download (source supplied), a RAM disk (for 
512K Mac), a resource maker, and a no royalty license 
agreement. Programming examples are included. (Over 
600 pages of documentation). 

AZTEC C68K-c requires a 128K Macintosh, 
and two disk drives (frugal developers can make 
do with one drive). AZTEC C68K supports the 
512K Macintosh and hard disks. 


AZTEC C68K-c (commercial system) ............. $500 
AZTEC C68K-p (personal system)................ $199 
AZTEC C68K-p to AZTEC C68K-c upgrade......... $310 





For Technical Support 


Aztec The Most Powerful C 


for the IBM AT ¢ MACINTOSH ¢ MS DOS « CP/M-80 ¢ ROM APPLICATIONS 
IBM PC/XT ¢ APPLE // © CP/M-86 © TRSDOS ¢ CROSS DEVELOPMENT 


Mac C-treedatabase ..2. . ve. mic ewe wee eee oS $149 
Mac C-tree database with source................ $399 
Lisa Kit (Pascal to AZTEC C68k object converter) .. 


AZTEC C65 


— for the APPLE // 
‘..The AZTEC C-system is one of the finest software 
packages | have seen...’’ NIBBLE review, July 1984. 
The only commercial C development system available 
that runs native on the APPLE Il+, llc, and lle, the 
AZTEC C65 development system includes a full floating 
point C compiler compatible with UNIX C and other 
MANX AZTEC C compilers, a 6502 relocating assem- 
bler, a linkage editor, a library utility, a SHELL develop- 
ment environment, a full screen editor, UNIX I/O and 
utility subroutines, simple graphics, and screen func- 
tions. 


AZTEC C65 (Apple. DOS 'S.3) 0 ni Sie son eee es $199 
AZTEC C65/PRO (Apple DOS + ProDos).......... $350 
(call for availability) 


AZTEC C II/PRO 


— for CP/M-80 

The first member of the AZTEC C family was the 
CP/M-80 AZTEC C compiler. It is ‘‘the standard” com- 
piler for development on CP/M-80. The system includes 
the AZTEC C Il C compiler, an 8080 assembler, a linkage 
editor, an object librarian, a full library of UNIX I/O and 
utility routines, CP/M-80 run time routines, the SMALL 
library (creates modules less than 3K in size), the fast 
linker for reduced development times, the ROM library, 
RMAC and M80 support, library source, support for 
DRI’s SID/ZSID symbolic debugger, and more. 


Pe Pee to Ni SON es hae Sse Red emcees Ie. $349 

PO or rt ano Cae Oe kn By ww we per a AG $199 

C-TREE Database with source .................. $399 

C-TREE Database in AZTEC objectform.......... $149 
AZTEC C80 


— for TRSDOS (Radio Shack Model lil & 4) 


“I’ve had a lot of experience with different C compilers, 
but the Aztec C80 Compiler and Professional Develop- 
ment System is the best I’ve seen.’ 80-Micro, Decem- 
ber, 1984, John B. Harrell Ill 


This sytem has most of the features of AZTEC C II for 
CP/M. It is perhaps the best software development 
system for the Radio Shack Model Ill and IV. 


AZTEC C80 model 3 (no floating point) ........... $149 
AZTEC CeO model 4 (full)... <> .s be aw oe $199 
AZTEC C80/PRO (full for model 3and4)........... $299 


To order or for information call: 


800-221-0440 


(201) 530-7997 (NJ and outside U.S.A.). Or write: MANX 
SOFTWARE SYSTEMS, P.O. Box 55, Shrewsbury, N.J. 
07701. 


SHIPPING INFORMATION - Standard U.S. 
shipment is UPS ground (no fee). In the U.S. 
one day shipment is $20, two days is $10. 
Canadian shipment is $10. Two days ship- 
ment outside the U.S. is by courier and is 
freight collect. 


(Bug Busters) call: 201-530-6557 


Circle no. 62 on reader service card. 
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Listing Two 


If called a second time, does nothing and returns the 
size of the largest object that can now be allocated. 


unsigned objmax() 
Returns the size of the largest object that can be 
allocated from the storage pool as it is now. 


char *objget(u) unsigned u 
Allocates an object of size u and returns its address, 
if possible. If it can't, it aborts the program. 


void objfree(p) char *p 
Frees the object addressed by p, which must have been 
allocated by objget(). If it wasn't, or if it is now 
free, or if it's been damaged, the program is aborted. 


unsigned objsize(p) char *p 
Returns the size of the object addressed by p. Aborts 
if *p is not a valid object. 


void objtrim(p,u) char *p; unsigned u 
Trims the object addressed by p back to have size u, 
releasing excess space. Use in a sequence like, 
p = objget(t=objmax()); 
.<sproecess data:.:"p to size wy) Wo <=: tf... 
Ob Jt rim (sy ,w)¢ 
AbOrts-i7 .*p den" ta valid objector if its size ‘is 
less than u. 


void objprt() 
Compiled only if DEBUG is defined, this function 
prints a map of object-space on stderr. 


Allocation is first-fit. Garbage is melded as it is created. 
An object is allocated as an even number of bytes L, fenced in 
by two words WWWW: 


A B C D 
...Object (WWWW) (WWWW)<== L bytes ==>(WWWW) (WWWW) object... 


Words WWWW are essentially 2+L, where L is the length of the 
object they bound. The low-order bit is the in-use flag. 

If. {(W:.&.0x0001),, the object is «active: if not, it ‘is free. 
The value == (WWWW & Oxfffe) == 2+L is used to chain from 
block to block. For addresses A,B,C, and D as shown, A+K->C, 
B+K->D, B-2->A, D-2->C, D-K->B, etc etc. Address B is the 
object's address, returned by objget() and given to objfree. 


The whole storage pool is bounded by two sentinel words, 0003. 
These appear to be active blocks with K=2, hence L=0, and stop 
a scan over the pool. 


ae 
#include "a:stdio.h" /* for error messages */ 
/*efine DEBUG 1*/ /* or don't -- to exclude Onsprt( ).4/ 
#define WORDAT *(unsigned *) /* using "char *" ptrs for words */ 
#define VOID /* not supported in Aztec C */ 
static. char: *obj base’ = 0, /* base of storage pool, uninitialized / 
. *opzZ tops /* upper limit, for integrity checks */ 
static unsigned maxobj, /* largest possible object */ 
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Spikes /* scratch words */ 


Stavic char =p; Fa, /* scratch pointers */ 
Hine = "ObjJinie"; /* abort-message parts */ 
mget{] = "Objget", 
merim~’ "=O 7trin” , 
mvalif{] = "Object validation", 


mpoolf{] "Object pool damage"; 
VOID objinit(u) 
unsigned u; 


if (objbase) return(objmax()); 


/* ensure an even number of bytes in the entire pool */ 
ao & (weeOsFEfi) 2. Oxfite.:.4a + -1)*& .Oxiite; 


/* set out 4 bytes for sentinels, 4 for first 2 WWWW words */ 
maxobj = u-8; 


/* ensure a reasonable size of pool, allocate it */ 
if (248 > maxobj) 
objerr(minit,1); 
if (NULL==(objbase = alloc(u)) 
So Ferre EMIT, 21.4 


/* set up sentinel words 0003h at ends of pool */ 
objtop = objbase + u - 2; 
WORDAT objbase = Ox0003; 
WORDAT objtop = 0x0003; 


/* fill pool with a single free object */ 
objbase += 2; 
k = maxobj+2; 
WORDAT objbase = k; 
q = objbase + k; 
WORDAT q = k; 


return (maxobj) ; 


} 


char *objget(u) 
unsigned u; 


/* eliminate cases of zero and too-big sizes */ 
if ({u==0) objerr(mget,1);: 
if (u>maxobj) objerr(mget,2); 


/* ensure even length, establish enventual K == L+2 we 
kee 2 + tu = (uct L) ® Oxntites: 


/* Scan to the top sentinel, looking for the first free 
object longer or equal to the requested size. The pool 
is vulnerable to damage -- be very suspicious and test 
every link in the chain before using it. */ 

p = objbase; 
while (0x0003 != (j = WORDAT p)) 
{ 
if (0==(4 &@ 0x0001}): 77" free *7 
if .(4.°3=.k)- break; -/* gaod* size .*/ 
q=pt+2+ (j & Oxftffe); 
if ((q <= p)||(q > objtop)) 
objerr(mpool,1); 
P= q; 


/* if we hit the sentinel, the requested size is not available 


(could return NULL here instead of aborting) */ 
if (j==0x0003) objerr(mget,3); 
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Dr ° Dobb ‘S Clini C (Listing continued, text begins on page 16) 
Listing Two 


/* set-p->low WWWW, q->high WWWW, validate block */ 
em et SG 
12 (hg SFO p Lee | > ebI top) } 
objerr(mpool,2); 


/* if the wasted space in this block would accomodate 
another object of 4 bytes or more, split off the 
high end as a new, smaller free object */ 
if (j > (k+8)} 
{ 
j = j-k-2; /* j=WWWW of excess object */ 
WORDAT gq = j; 


eas 
WORDAT q = j; 
—~= Q- 
WORDAT q = k; 
WORDAT p = k; 


} 


/* activate chosen block, return address of data */ 
WORDAT p += 1; 
WORDAT g += 1; 
return” (p+2)+ 


} 


unsigned objsize(ob) 
char *ob: 


{ /* This is mostly an internal subroutine. It validates 
a user-supplied object-pointer, leaving static globals 
Pp, q, and k set up so that p->(WWWW) ... q—->(WWWW) 


and k== WWWW & Oxfffe. 


p = ob-2; 


/* address must fall within in pool, */ 
if (p < objbase) objerr(mvali,1); 
if (p > objtop) objerr(mvali,2): 


/* ..must have active lower WWWW word, */ 
k = WORDAT p; 
if (O==(k & 0x0001)) objerr(mvali,3); 
KH =; * StPin active bit +7 
/* ..showing size of L=2 or more, but not more than max, */ 


if (k<4) objerr(mvali,4); 
if (maxobj < k) objerr(mvali,5); 


/* ..which must yield a valid upper-WWWW address, */ 
SPs 
if ((q <= p)|[(q > objtop)) objerr(mvali,6); 


/* ..and the upper and lower WWWWs must match i 
if (WORDAT p != WORDAT gq) objerr(mvali,7); 


/* object is valid, return its data size */ 
return (k=2): 


} 


VOID objfree(ob) 
char *ob; 


/* use objsize() to set up P, q, kK and validate block */ 


objsize(ob) ; (Continued on page 24) 
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Dr ° Dobb ‘S Clini C (Listirig cObtinuEd, text begins on page 16) 
Listing Two 


/* object is valid, make it free */ 


WORDAT p = k; 
WORDAT q = k; 
/* if object next above is free, meld with it. Afterward 
and regardless, ensure that p->KKKK... q->KKKK */ 
RS 2s 


j = WORDAT q; 
if (O==(j & 0x0001)) 
{ 


oR ee Fee 

WORDAT p = k; 

Go Feo 5 3 

WORDAT q = k; 
} 


else q -=2; 


/* if block next below is free, meld with it, too */ 
Pee 
j = WORDAT p; 
if (O0==(j & Ox0001)) 
{ 


Poree ls 
BSc og ks 2 
WORDAT p 

gq 


= k; 
WORDAT = k; 


VOID objtrim(ob,sz) 
Ghar .*ob:; 
unsigned sz; 


/* validate object, ensure call is to reduce it not enlarge it */ 
jJ = objsize(ob); 
If (sz > j)*Objerr (mtrims i): 


/* ensure new size will be even =f 
SZ = (sz + 1)&0xfffe; 


/* we will create a new, free object in the high end of 
the present one -- its k is k-sz-4. */ 
j =k - sz - 4; 


/* if that block doesn't amount to 8 bytes of data, forget it */ 
LE. C3 SS 10)  pS)turn: 


/* the k of the existing block will become sz+2 we 
k = sz + 2; 


/* create the trimmed block, including active bit */ 
WORDAT p = k#1; 
Het 
WORDAT p = kH+1; 


/* create the freed block (no active Dit} --*/ 


Do he 43 
WORDAT p = j; 
WORDAT q = j; 


/* if its upper neighbor is free, meld them mie 
y=: 2e 
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k = WORDAT q; 
if (O==(k & 0x0001)) 
( 


Fe ee Ee ae 
WORDAT p = j; 
tite R: 
WORDAT q = j; 
} 

} 

unsigned objmax( ) 

{ 

objbase; 

0; 


p 
k 


/* scan the whole pool to find the largest free object. */ 
/* be suspicious, validate all chain links as we go. */ 
while (Ox0003 != (j = WORDAT p) ) 
{ 
if (j & Ox0001) 
j &= Oxfffe; 
else | 
SES Sh eas 
q23 Dp 3 | 
if ((q <= p)||(q > objtop)) 
objerr(mpool,3); 
PF qt; 
} 


return (k-2); 


VOID objerr(m,n) 
char *m:; 
dnt n; 


fprintf(stderr,"\n\n%s error #%d\n",m,n) ; 
exit(); 


} 
#ifdef DEBUG 


VOID objprt() 
{ 


fputs("\n\nmap of allocation enace, ..\n ,<8Lgerr}; 


/* display what should be lower sentinel of 0003, and its address */ 
p = objbase-2; 
fprintf(stderr, "%04x->%04x\n",p,WORDAT p) ; 


p+s2; 
/* display bounds and WWWW words of each block to upper sentinel */ 
while(Ox0003 != (j = WORDAT p)) 
{ 
gq =p + (j).& Oxftife).; 
k = WORDAT q; 
fprintf(stderr, 
"¥O4xX->%O04x ... %04xX->%04x\n", 
Pp, j, q, k) ; 
if ((q<=p)||(q > objtop)) break; 
p.2 @d+<; 1 


} 


/* display upper sentinel unless chain was broken */ 
if (j == 0x0003) 
fprintf(stderr,"%04x->0003\n",p); 


else 
fputs("...stopped for invalid chain\n",stderr) ; 


} 
#endif | End Listings 
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Queues and Bit Maps 


by Allen Holub 


Queues 

I’ve never been happy with a store- 
bought word processor. I cut my 
teeth on vi and nroff on a Unix sys- 
tem, and I’ve yet to find an accept- 
able commercial version of either 
that will run under MSDOS. 

Because I had an editor that I could 
live with, not having nroff was my 
greatest problem. None of the ver- 
sions of nroff from users groups were 
acceptable; they invariably were sub- 
sets of the real thing, often loaded 
with bugs, and at least one of them 
(roff4) was formatted so poorly that it 
was unmaintainable. The writers of 
these programs also took considerable 
liberties with nroff’s instruction set. 

So, being a masochist, I wrote my 
own nroff. In the course of this pro- 
ject, I added several useful functions 
to my library and these functions will 
turn up in this column from time to 
time. This month we'll look at the 
queue manager . 

A queue is a FIFO (first in, first 
out) data structure. The first object 
to be enqueued is also the first object 
to be dequeued (unlike a stack where 
the first object pushed is the last ob- 
ject popped). 

The rate at which objects are en- 
queued can be higher than the rate at 
which they are dequeued, as long as 
you never allow the queue to get full. 
Therefore, you can use queues to im- 
plement type-ahead in character I /O 
routines and the like. The interrupt 
service routine that talks to the key- 
board UART puts characters into the 
queue, and getc or its system equiva- 
lent takes the characters out of the 
queue. As long as the queue never 
fills up, getc doesn’t have to keep up 
with the data rate at the UART. 

Queues have other uses. In multi- 
tasking operating systems, they hold 
pending messages while a task is 
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busy. In a word processing applica- 
tion (like nroff), they’re used for line 
filling. Input text to nroff-is unfor- 
matted: there are a random number 
of words on a line. Nroff collects 
words until it has enough to fill an 
entire line, then it prints the collected 
line. My version of nroff enqueues 
characters until it has collected one 
too many words. It then dequeues all 
but the last word to produce an out- 
put line. 

Listing One (page 31) contains a 
package of queue management rou- 
tines; you need to declare a pointer to 
a QUEUE somewhere in your pro- 
gram to use them. Like a FILE, a 
QUEUE is a structure maintained by 
the queue manager. However, also 
like a FILE, your program need know 
nothing about the details of queue 
management or the contents of this 
structure. I usually typedef a QUEUE 
as a character pointer when I use it. 
Now let’s turn to the various rou- 
tines. 


typedef char *QUEUE; 


QUEUE *makequeue( qsize, objsize ) 
int qsize, objsize; 


Makequeue( ) is the equivalent to 
fopen( ). ““Qsize” is the size of the 
queue in objects (not bytes), and 
“objsize” is the size of a single object 
in bytes. You can make a queue of 
anything; even a queue of structures 
is permissible. Like fopen( ), make- 
queue( ) returns a pointer that must 
be passed to all the other queue mani- 
agement routines. A zero is returned 
if there isn’t enough memory to make 
the queue. 


del_queue( qp ) 
QUEUE *aqp; 
int empty; 


i OS Pa ba 






Del_queue( ) deletes a queue cre- 
ated with a previous makequeue( ) 
call. Qp is the pointer returned by 
that makequeue( ) call. This routine 
only deletes empty queues. If you 
need to delete a queue that isn’t emp- 
ty, use free(qp); a one is returned if 
the queue is deleted, and a zero other- 
wise. 


enqueue ( obj, gp ) 
char *obj; 
QUEUE *ap; 


enqueue( ) puts dn object into the 
queue. “Obj” points at the object to be 
enqueued. Alhough it’s declared as a 
character pointer, obj actually can 
point at anything. “Qp” is a pointer to 
the queue itself; as returned from a 
prévious makequeue( ) call. 


dequeue ( obj, gp ) 
char *obj; 
QUEUE *an: 


Dequeue( ) is the opposite of en- 
queue( ). It takes an object out of a 
queue pointed to by “‘qp” and puts 
that object at the memory location 
pointed to by “obj.” 


car *show_next( qp ) 
QUEUE *ap; 


int *sp_used ( gp ) 
QUEUE *qp; 


int sp_avail ( gp ) 
QUEUE *aqp; 


You use these routines for getting 
information about a queue. Show_ 
next( ) returns a pointer to the object 
to be dequeued by the next call to de- 
queue( ), without actually removing 
the object from the queue. Sp_ 
used( ) returns the number of objects 
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now in the queue. Sp_avail( ) returns 
the amount of space left in the queue. 
The sum of the return values of 
sp_used( ) and sp_avail( ) is the 
queue size. 


The QUEUE data structure is a 
block of memory that includes a 
header describing the queue and the 
queue itself. The mechanism is simi- 
lar to that used by alloc( ) and 
free( ). This structure is shown in 
Figure | (page 27). 

“Start” points at the beginning of 
the queue proper. “Head” and “tail” 
are the offsets, in objects, from the 
start of the queue to the first and last 
valid objects in the queue. “Size” is 
the maximum number of objects that 
the queue can hold. “Nobj” is the 
number of objects currently in the 
queue. ““Objsize”’ is the size of an ob- 
ject in bytes. 

There are actually more things in 
the header than are, strictly speak- 
ing, necessary. For example, you can 
determine the start of the queue’s 
data area by adding the header size 
to the queue pointer. Similarly, you 
can compute the number of objects in 
the queue from head and tail. Howev- 
er, these extra fields do reduce the 
amount of computation you need to 
do. If RAM is tight and ROM isn’t, 
take them out. 

Makequeue( ) (Listing One, line 
27) allocates space for the queue and 
initializes the header. The real queue 
size is the number of bytes required 
for the queue itself (qsize X objsize) 
plus the size of the header. 

Del_queue( ) (line 43) just calls 
free to return the memory used by the 
queue to the free list (if the queue is 
empty). 

Objects are put into the queue with 
enqueue( ) (line 57). They are en- 
queued at the tail and dequeued from 
the head. The address where the ob- 
ject is to go is computed on line 71. 
Because gp —>start is declared as a 
character pointer, pointer arithmetic 
is defeated (if you add | to a charac- 
ter pointer, you actually modify it by 
1, not so with an integer pointer). The 
object is transferred into the queue, 
one byte at a time, on line 75, and the 
tail pointer is incremented on lines 
77-78. If the pointer advances past 
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CP/M-80 C Programmers .. . 


Scive time 


... with the BDS C Compiler. Compile, link 
and execute faster than you ever thought 


possible! 


If you’re a C language 
programmer whose patience is 
wearing thin, who wants to spend 
your valuable time programming 
instead of twiddling your thumbs 
waiting for slow compilers, who 
just wants to work fast, then it’s 


time you programmed with the 
BDS C Compiler. 

BDS C is designed for 
CP/M-80 and provides users with 
quick, clean software 
development with emphasis on 
systems programming. 


Sr 


BDS C features include: 


¢ Ultra-fast compilation, linkage and 
execution that produce directly 
executable 8080/Z80 CP/M command 
files. 

A comprehensive debugger that Plus... 
traces program execution and 
interactively displays both local and 
external variables by name and 
proper type. 

Dynamic overlays that allow for run- 
time segmentation of programs too 
large to fit into memory. 


source code. 


—_—————————————————— 


fast as its closet competitor 
(benchmark for this test was the 
Sieve of Eratosthenes). 


Reviewers everywhere have 
praised BDS C for its elegant 
Operation and optimal use of 
CP/M resources. Above all, BDS C 
has been hailed for it’s remarkable 


speed. by BDS very highly.” 


Tim Pugh, Jr. 

in Infoworld 
‘Performance: Excellent. 
Documentation: Excellent 
Ease of Use: Excellent.” 


BYTE Magazine placed BDS 
C ahead of all other 8080/Z80 C 
compilers tested for fastest 
object-code execution with all 
available speed-up options in use. 
In addition, BDS C’s speed of 
compilation was almost twice as 


InfoWorld 


Magazine 
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¢ A 120-function library written in both 
C and assembly language with full 


¢ A thorough, easy-to-read, 181-page 
user’s manual complete with 
tutorials, hints, error messages and 
an easy-to-use index — it’s the 
perfect manual for the beginner and 
the seasoned professional. 


“T recommend both the 
language and the implementation 


Sortware Report Card 
“... @ superior buy ...” 

Van Court Hare 

in Lifelines/The Software 


O AVS 
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¢ An attractive selection of sample 
programs, including MODEM- 
compatible telecommunications, 
CP/M system utilities, games and 
more. 


A nationwide BDS C User's Group 
($10 membership fee — application 
included with package) that offers a 
newsletter, BDS C updates and 
access to public domain C utilities. 






Don’t waste another minute on 
a slow language processor. Order 
your BDS C Compiler today! 


Complete Package (two 8” SSSD disks, 
181-page manual): $150 

Free shipping on prepaid orders inside 
USA. 

VISA/MC, COD’s, rush orders accepted. 
Call for information on other disk 
formats. 


BDS C is designed for use with CP/M-80 
operating systems, version 2.2. or higher. It is 
not currently available for CP/M-86 or MS 
DOS. 


BD Software, Inc. 
P.O. Box 2368 
Cambridge, MA 02238 
(617) 576-3828 








the end of the queue, it is reset to the 
beginning of the queue. 
Head and tail are actually offsets 


(in elements) from the starting ad- 


dress of the queue. In the original 
versions of these routines, head and 
tail were pointers (which saved some 
computation), but the routines were 
harder to debug and additional com- 
putation was added in other places. 

Objects are removed from the 
queue with dequeue( ) on line 82. It 
works the same way as enqueue( ) ex- 
cept you're now using the head rather 
than the tail, and you’re copying in 
the other direction (from the queue 
into the object). 


Bit Maps 

My version of grep (DDJ, October 
1984, #96) had several inefficiencies 
built into it. Some of these inefficien- 
cies were basic to the algorithms 
used. As several readers pointed out, 
a state machine implementation 
would have been faster. However, 
changing something this fundamen- 
tal would have meant throwing away 
most of the program. 

Because the thing did work after 
all, I wasn’t tempted to rewrite it 
completely. Other of the suggested 
improvements, however, were more 
reasonable. In particular, Dave Cor- 
tesi suggested using a bit map to take 
care of character classes; his code, 
which I have transformed into a set of 
general purpose routines, is presented 
in Listing Two (page 36). Listing 
Three (page 37) shows the various 
changes needed to add bit maps to 
grep. 

Probably the biggest problem with 
grep.c is that I modeled the program 
on the version given in Software 
Tools in Pascal. I’ve never been able 
to figure out why Kernighan and 
Plauger did some things the way they 
did. Pascal does support a pointer 
type; why don’t they ever use it? 

Anyway, the problem of character 
Classes is really a problem of set rec- 
ognition. You want to define a set of 
characters that are legally in the 
character class and then to test for 
membership in that set. The Soft- 
ware Tools version creates a string of 
characters that are legal in a charac- 
ter class, and then searches that 
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string sequentially when testing for 
membership. 

Because character classes are often 
pretty big (i.e., [A-—Za—z] has 52 el- 
ements), you both waste memory and 
slow down the program if the charac- 
ter you’re looking for is at the end of 
the list. [A—Za—z] requires 31 com- 
parisons to find a lower-case “‘e,”’ the 
most common letter in English. 

A better solution to the set prob- 
lem is a bit map in which each bit 
corresponds to a single ASCII charac- 
ter; that is, bit 0 isa NULL, bit 1 is a 
control-A, bit 2 is a control-B, bit 65 
is an upper-case A, and so forth. So, 
to put a letter into the set, you set the 
corresponding bit in the bit map, and 
to see if a letter is in the set, you test 
the corresponding bit. 

The set operation will take a little 
longer than it used to, but you need 
set a bit only once. The test operation 
will be much faster, and you general- 
ly test bits a lot. Memory use is more 
efficient too; a bit map that can hold 
all 128 ASCII characters needs only 
16 bytes. An equivalent string would 
require 129. On the other hand, 16 
bytes are always required, even in a 
small character class. 

Listing Two contains three routines: 


typedef char BITMAP; 


BITMAP *makebitmap( size ) 
unsigned size; _ 


This will make a bit map with 
“size” elements, requiring (size/8 + 
2) bytes, and return a pointer to it. 
Because calloc( ) is used to do the 
memory allocation, the pointer re- 
turned by makebitmap( ) can be 
passed to free( ) to delete the map. A 
zero is returned if makebitmap( ) 
can’t get enough memory. 


setbit ( c, map, val ) 
unsigned c, val: 
BITMAP *map; 


This will set bit “‘c”’ of the bit map 
pointed to by “map” if “‘val”’ is not a 
zero; it will clear the bit if ‘‘val”’ is 
zero. C must be in the range 0 to size 
— 1, where “size” is the argument 
originally given to makebitmap( ). 
Map is a pointer returned by a previ- 


ous makebitmap( ) call. A one is re- 
turned on success, and a zero if c is 
out of range. 


testbit (c, map ) 
unsigned c; 
BITMAP *map; 


This will test bit ‘“‘c” of the bit map 
pointed to by “map.” It returns a one 
if the bit is set, and a zero if it isn’t or 
if c is out of range. 

Listing Two also contains a 
main( ) routine for testing the three 
utility routines (and demonstrating 
how they work). A bit map contain- 
ing 32 bits is made on line 66. The 
contents of the map are printed to the 
screen with the for loop on lines 74 
and 75. The bit is actually set on line 
80. 

The subroutines are relatively 
straightforward. Makebitmap( ), like 
makequeue( ), creates a header with 
the bit map itself appended to it (see 
Figure 2, page 28). The pointer re- 
turned by makebitmap( ) points at 
this header, which is a single un- 
signed sized object (containing the 
number of bits in the map). 

Makebitmap( ) figures the number 
of bytes needed on line 24 with: 


numbytes = (size >> 3) + ((size 
& 0x07)? 1:0); 


The right shift does a divide by 8, and 
the conditional adds | to the result of 
the divide if “‘size”’ isn’t an even mul- 
tiple of 8. Calloc( ) is called (on line 
28) to get the memory so the bit map 
will be initialized to all zeroes (all 
bits cleared). The additional 
sizeof(unsigned) is for the header. A 
pointer to the map is returned on line 
30. 

Setbit( ) starts on line 32 of Listing 
Two. It tests for “‘c” out of bounds on 
line 39 (“‘map” must be cast into a 
pointer-to-unsigned to get the map 
size). We then add sizeof (unsigned) 
to map to skip past the map size to 
the map itself. The bit is set on line 43 
or cleared on line 45. Testbit( ) (line 
49) works just like setbit( ), the only 
difference being that it returns the 


bit’s value instead of modifying it. 
Reader Ballot 
Vote for your favorite feature/article. 
Circle Reader Service No. 191. 
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C Ch es f (Text begins of page 26) 
Listing One 


1: #define DEBUG 1 


2: #ifdef DEBUG 
3: #include <stdio.h> 
Le 


#endif 

5; /*--------- 3 nn ee enn 
ae QUEUE.C: General purpose queue management routines: 

Tes , 

OT a Copyright (c) 1985, Allen I. Holub. All rights reserved 

9: * This program may be copied for personal, non-profit, use only. 

POs Hobe ae e+ ee ae Ge ee ee ee Ss 

Lhe = 

12: * The QUEUE data structure. No external routine needs to know anything 
13: * about how this structure is put together. These routines need only 

14: * remember a pointer to the queue (in a manner similar to the FILE 

15: * pointer used by the i/o routines). 

Los) Ff 

| 17: typedef struct 

Les. +{ 
19: char *gtart; /* Pointer to beginning of queue “i 
20: int head; /* Index of current head * / 
ot": int tail; /* Index of current tail +7 
wie int size; /* Max num of objects queue can hold * / 
233 int nobj; /* Number of objects now in the queue * / 
24: int objsize; /* Size of one element wy 


Zo :> } QUEUES 


96 9. | Fone on oe ea 5 te = sn RT * 
27: QUEUE *makequeue( qsize, objsize ) 

285. { 

29:3 /* Make a queue of the specified size containing objects of the 
SO: * specified size. Return a pointer to the queue or QO if there is 
tis * not enough memory to make the queue. Queues are created using 
42° * calloc(). They require sizeof(QUEUE) + (qsize * objsize) bytes. 
33% * 

34% register QUEUE *qp; 

323 if( !(qp = (QUEUE *) malloc(sizeof(QUEUE) + (qsize * objsize)) )) 
x04 return -O; 

a4 qp->start = (char *)(qp + 1)3 

38: qp->size = qsize : 

39% qp->objsize = objsize ; 

40: qp->head = qp->tail = qp->nobj = 0; 

41: return( qp );3 

me} 

43: del_queue( qp ) 

44: QUEUE ops 

ease : 

46: j® Delete a queue and free the memory. The queue will NOT 

47 - be deleted unless it is empty. Return 1 if the queue 

48: * was deleted, O otherwise. If you don't care if the queue 

49: * is actually empty, use free(qp). 

50: * / 

os if( qp->nobj ) 

iz return O; 

ao freel ap -)% 

54: return -t; 

et 9 

Baal af Wiesmann te ese a en Si te me =y 


(Continued on next page) 
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C C. h es f (Listing continued, text begins on page 26) 
Listing One 


57: enqueue( obj, qp ) 


393. char *obj 3 

59: QUEUE 3) ae 

GO." { 

Gt /* Put an object into the queue. Obj is a pointer to the 

62; * object qp is a pointer to a QUEUE. Return 1 on success, 
63° * O if there's no more room in the queue, 

64: ny 

65: int i; /* Counter * / 
66: char *bp; /* points into queue #Y 
67: if( qp->nobj >= qp->size ) {* Tf the .quede is full */ 
68: return O; /* return failure. * / 
69: qp->nob j++; /* One more object in * / 
70: /* the queue es 
71: bp= qp->start + (qp->objsize * qp->tail); /* Get target address */ 
72: /* within the queue; Ff 
73:3 /* then move object * / 
74: /*® into. it: coer 
75: for( i = qp->objsize; --i >= 0; *bp++ = *obj++ ) 

163 ; 

rt if( ++qp->tail >= qp->size) /* Wrap around if we've */ 
78: qp->tail = 0; /* gone off the end of */ 
79: /* the queue. *7 
80: return 1; 

61s 2} 

82: dequeue( obj, qp ) 

83+ char Cony. 

84: QUEUE Wap + 

BS: -{ 

86: /* Get an object from the queue, Qp is a pointer to a QUEUE, 
cas * The dequeued object is copied into the place pointed to by 
88: * obj. Return O if the queue is empty and no object was 

89; * dequeued, 1 otherwise. 

90: */ 

+i: register int © ++ 

ox register char *bp; 

oss 

94; if( qp->nobj <= 0 ) 

95: return 0; /* queue empty */ 
96; qp->nobj-- ; 

O73 bp = qp->start + (qp->objsize * qp->head) ; 

98: for( i = qp->objsize; --i >= 0; *obj++ = *bp++ ) 

99 ; 

100: if( ++qp->head >= qp->size ) 

101: qp->head = OQ; 

5023 return :)s 

03 3:4 
DS FP ree ae ed Se ee eg eon de te ep ee POG ee ee oh ere rete o * / 
105: /* Little access routines: “7 
106: /* Show_next returns a pointer to the object at the head of the * / 
107: /* queue; sp_used returns the number of objects in the queue ¥'f 
L082: 7% Sp_avail returns the number of slots available in the queue. * / 
109: char *show_next (qp) 
110: QUEUE *qp; 
bi) ef 

(Continued on page 34) 
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From now on MATIS’is only $49°5! 





(MATIS, the complete User Interface development tool has been selling for $150.) 


Why the radical price cut? 

We decided after looking over the compe- 
tition that MATIS had so many advan- 
tages it should be made available to more 
programmers. We decided to compete 
aggressively so you could easily afford to 
have MATIS in your bag of tricks. We 
hear from MATIS users in the USA and 
France that it is a truly loveable product. 
Sooo...we're running this big ad to pro- 
mote our new low price. 


MATIS windows are beautiful. 
Display any portion of any screens you 
create at any point in your program. 
Scroll in any direction manually with cur- 
sor keys...or automatically. 


And the screens are 
HUMUNGEOUS! 

MATIS screens can be just about as big as 
you want...up to 65,534 rows by 
65,534 columns! The number of screens 
is only limited by available memory. 


Print big MATIS screens directly. 
One command sends your screens to your 
printer with no need to program special 
routines when your virtual screen is big- 
ger than your terminal screen. 


User input fields are a snap. 
Creating fields for data entry is easy with 
no limit to size or number by screen. 
Request for input < 

separately OF ee 








Denis Moran 
President, Softway, Inc. 


Control your keyboard 

with MATIS. 

It Keeps track of keys that are pressed 
during the execution of your program 
and lets you assign specific functions to 
selected keys. 


Control that screen too! 

MATIS is extremely versatile and flexible 
when it comes to controlling lines, col- 
umns, fields, and text. They can be modi- 
fied, transferred, displayed or moved 
with a single command. All video attri- 


butes are supported: color, reverse video, 


blinking...you name it, you got it. 


Want an interactive 

screen builder? 

You've got it with MATIS. It’s called 
“MATPAGE”™ and it lets you create 
and modify any of your screens in an 
interactive mode. 


_ Softway, Inc. 


24-Hour Credit Card Orders By Phone: 


_ 1 (800) 227-2400 EXT 989 1 caiifornia: 1(800)772-2666 EXT 989 


MATIS adds over 70 routines 

to your program. 

Written in Assembler, MATIS routines 
are fast and powerful giving your pro- 
gram improved efficiency and enhanced 
visual appeal, while they reduce its size 
and maintenance worries. And MATIS 
separates screen design from the core 
of your program. 


MATIS is unique. 
We don't think there's a single program 
that combines as many tools in one 
package as completely or as well as 
MATIS. It interfaces with Intepreted and 
Compiled BASIC (Microsoft), C (Lattice, 
Microsoft, Aztec), PASCAL (IBM, Micro- 
soft) and ASSEMBLER. All you need 
is an IBM* PC/XT or true compatible 
under DOS, 128k or RAM, monochrome 
or color monitor. 

You get an easy to follow no-frills 
manual and a 30-Day Money Back 
Guarantee. 


Late News: 

MATIS/T™ for TURBO-PASCAL** 
only $29.95 

An indispensable add-on at a dynamite 
price. What more can we say? 


_Deu's 


Denis Moran 


™ MATIS, MATIS/T, & MATPAGE are Trademarks of Softway, Inc. 


*IBM is a Reg. Trademark of IBM Corp. 


**Turbo Pascal is a Reg. Trademark of Borland International 


500 Sutter Street, Suite 222 F 
San Francisco, California 94102 
(415) 397-4666 


Please ship the following at once. | understand there is a 30-day money back guarantee. 





Copies of MATIS at $49.95 plus 
$3 shpg. 


Copies of MATIS/T for TURBO 
PASCAL at $29.95 plus $2 shpg. 


California residents, add 612% sales tax 





[_] | like to read specs, so 
send me a folder. 


Total $ 


Name — 


Address (please no P.O. Box) 
City/State/ZIP 
Phone ) 


Signature 


Make payment by money order, check, or charge card LJ visA L] MASTER CARD 


Number 


Exp. 


Distributed in Europe By: MICRO APPLICATION SOFTWARE « 147 Avenue Paul Doumer, 92500 RUEIL MALMAISON FRANCE, Tel (1) 732.92.54 
ee 


Circle no. 92 on reader service card. 


C C hes f (Listing continued, text begins on page 26) 


Listing One 

112: return( qp->start + (qp->head * qp->objsize) ); 
1S ee ee 

114: int sp_used (qp) 

115: QUEUE *qp; 

1163-4 

Pies return( qp->nobj ); 

rte} 

129%: dnt sp_avail (qp) 

120: QUEUE *qp; 

124: > { 

122 return( qp->size - qp->nobj ); 
i325) 


124: #ifdef DEBUG 


125: main() 


1202 

iz: int fim ¢ tips 

cos QUEUE *qp; 

129: qp = makequeue( 4, sizeof(int) ); 

r30: white(C:.2°4 

t30 { 

Lae num = c = -l; 

133: Lp. = Ctit: *j)ap=->start 

134: printf("\n\nqueue: 2d 2d 2d Z2d\n",ip[O],ip[1],ip[2],ip[3]); 
135 

136: printf ("start =Ox%x\n", qp->start )3 

37x printf("head =Z4d\n", qp->head )3 

138: printt (tail =£d\n", qp->tail 3 

139: printf("size =Zd\n", qp->size 3 

140: printf("objsize =Zd\n", qp->objsize 3 

141: printf("nobj =Z2d\n", qp->nobj )3 

142; printf("there are 2d slots left in the queue\n\n", 

143: sp_avail(qp) ); 
144; printf("(d/e/q) ->"); 

145: witht crite “eo eee Ta dt, 88 co beg * 

146: c = getchar(); 

147: PCC: wes ce*. 3 

148: 

149: printf("enter decimal number ->"); 

150: scanf("Zd", &num ); 

151: printf("enqueue(%4d) returned 4d\n", 

52° num, enqueue(&num,qp) ); 
1:53: } 

154: else ff£€C cee td!) 

L553 { 

156: printf( "dequeue returned Z%d, loaded %d\n", 
E373 dequeue( &num, qp ), num ); 
158: } 

1598 else 

160: break; 

toils } 

162: printf(" deleting queue, queue was Z%sempty\n", 

163% Gel qneue(qp).: 2)" <3. "nor: .); 
164: } 


165: #endif 
End Listing One 
(Listing Two begins on page 36) 
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More Power Than You Thought Possible 


Arity offers the first serious implementation of Prolog for IBM personal computers. Arity/Pro- 
log is a powerful, highly optimized, and extended version of the logic programming 
language Prolog. Imagine building software applications with a language that solves prob- 
lems through deduction and logical inference. The task of creating complex programs is 
much faster and easier, resulting in lower development costs. Arity/Prolog is now in use ina 
wide range of applications in industry, business, research, and education. The solution— 
the Arity/Prolog Interpreter: 


lB Interface to assembly 


Hf Source level debugger language and ‘C’ 











B Virtual databases, each @ Text screen 

with a workspace of 16 manipulation 

megabytes 

| @ Integrated program- 

i Floating-point ming shell to MSDOS 

arithmetic | 

H Comprehensive set of 

i String support for evaluable predicates 


efficient text handling 





B Definite clause 
grammar support 






Arity/Prolog Interpreter $495.00 
Arity also offers the Arity/Prolog Compiler and Interpreter, a sophisticated development envi- 
ronment for building Al applications. Essential for producing fast, serious production code. 


Arity/Prolog Compiler and Interpreter $1950.00 


The Arity/Prolog Demo Disk is available for $19.95. i Arity/Prolog products run on the IBM PC, 
XT, AT, and all IBM compatibles. ll To order, call (617) 371-2422 or use the order form below. 


— arity corporation 358 Baker Avenue, Concord, MA 01742 


[Quantity | Product__| _UnitPrice | Total Price 
a 
ede ne ee 
Pane: 








Name 


Organization 





Address 






EEE 













C Enclosed is a check or CZ. Please bill my Subtotal 
money order to Arity Corporation 1 Mastercard (Visa © American Express 

MA residents add 5% sales tax 
pita oe Po el Pee | Baca 
Vali / to Pea | ; 

ue signature CJ Please send me more information about 
Arity and Arity/Prolog 

——  @&FIEY 358 Baker Avenue, Concord, MA 01742 M-AD-O" 


Circle no. 16 on reader service card. 





C Ches f (Listing continued, text begins on page 26) 
Listing Two 


wie 


Jae 
36: 
a8 
38: 


39: 
40: 


41: 


42: 
43: 
44: 
45: 


46: 
47; 


48: 


49: 
50: 
ais 
52:3 
538 
543 


36 


/* BITMAP .C makebitmap, setbit, testbit: bit map manipulation 
* routines, 

* 

* Copyright (c) Allen I. Holub, all rights reserved. This program 

* be copied for personal, non-profit use only. 

wy 


#ifdef DEBUG 
#include <stdio.h> 
#endif 


typedef char BITMAP; 


BITMAP *makebitmap( size ) 
unsigned size; 


{ 


/* Make a bit map with "size" bits. The first entry in 
* the map is an unsigned int representing the maximum 
7 bit. The map itself is concatenated to this integer. 
+ Return a pointer to the map on success, O if there's 
- not enough memory. 

* / 


unsigned *map, numbytes; 
numbytes = (size >> 3) + ((size & 0x07) 71:0); 


#ifdef DEBUG 
printf("Making a 2d bit map (Zd bytes required)\n", size, numbytes); 
#endif 


if( map = (unsigned *) calloc( numbytes + sizeof(unsigned) ,1 ) ) 
*map = size; 


return (BITMAP *) map; 
} 
setbit(.¢c, manp,'..¥al~ ) 
unsigned c, val; 
char *map; 
{ 


/* Set bit c in the map to val. 


s If c > map size, 0 is returned, else 1 is returned. 
* 
if( c >= *(unsigned *)map ) /* if c >= map size */ 


return OQ; 


map += sizeof(unsigned); /* Skip past size +f 
L£( val.) 

map[c >> 3] |= 1 <<’ (c & Ox07) ;: 
else 


mappo Pasay Se. Cl << teuk 0x07) _ 


return( 1 ); 


Cesthietc,. map.) 
unsigned c; 


char *map; 

{ 
/* Return 1 if the bit corresponding to c in map is set. 
* 0. £2.8t 1s not. 
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84; 


re 


if( c >= *(unsigned *)map ) 


return Q; 
map += sizeof(unsigned); 
retura(:cMeplc.>>. 3 } el << Ce. &. 0x07)) Js 
ee DEBUG 
main() 
int bitnum, set, i, *map; 


printf("Making a 32 bit wide bit map\n"); 


if( !(map = makebitmap( 32 )) ) 
printf("Can't make map\n"); 


whilet “T..) 
{ 


/* Print the bit map. Try to print past the end of the 


* map to make sure overflow detection works (bit 32 should 


* come back as a 0). 


* / 
for( i= 0; i <= 32 3; i++ ) 
gurchar ( -testhit( swap.) >? '% "4. eth 


printf("\n\nBit number :"); 
scanf("Z2d", &bitnum ); 

printt("\al to ser, 0..to clear: -"); 
scanf("Zd", &set ); 


if( ! setbit(bitnum, map, set) ) 
printf("Bit out of range\n"); 


#endif 


Listing Three 


FWNr 


mH OOON DWI 


— 


Ro we ee ee ee ee i a a a a err eee 4. 
* GREP: Changes needed to add bit maps to character classes: | 
She es ceareets wae teen le ews sea ented a erin gt Ne Niger Sm  e S y a iS  e,apaena e + 
+/ 
typedef struct token /* In tools.h */ 
char tok’ 
char Lenars 
char *bitmap; 
struct token *next; 
} TOKEN; 
JH mace a eee LG a a oe 4 bo es ee se ee 
TOKEN *makepat(arg, delim) /* In tools.c * / 
char *arg; 
int delim; 
{ 
* 
* 
k 
case CCL: 
if (*(arg+l) == NEGATE) 
{ 


ntok-—>tok = NCCL; 
arg += 23 


End Listing Two 


(Continued on next page) 
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C Ch es f (Listing continued, text begins on page 26) 
Listing Three 


26: else 


28: ntok->tok = CCL; 
29:3 argt++t+; 
30: } 


31: if( ntok->bitmap = makebitmap(128) ) 

32: arg = dodash(CCLEND, arg, ntok->bitmap ); 

33: else 

34: { 

30: fprintf(stderr,"Not enough memory for pat\n"); 
36: error = l;3 


38: break; 


39: * 
40: * 
41: * 


43.: char *dodash( delim, src, map ) /* In tools.c * / 
443 int delim; 
45: char src, *map; 


47: register int first, (lest; 
48: char Fetart: 


49: start = src; 


50: while( *src && *srce != delim ) 

be { 

52: ££(°¥srefa %=%) 

53% : setbit( esc( &srce ), map, 1 ); | 


54: else if( src == start || ¥*(src+l) == delim ) 
55: SetsittC.—",- megs i>}; 3 
56: else | 
aes ( 

58: ere+s 


59: Ty Patou Ceres ver 2} ) 


61; first = *src; 
62: last. *«° *¥Csre-2),: 


66: first 
67: last 


*(srce - 2); 
Fares 


69: while( ++first <= last ) 
70: sethit( ‘first, map,: 1); 


71: STC++t+;3 
E38 } 


74: return( src ); 


763 int omatch (linp, pat, boln) /* In tools.c +} 
773: char **linp, *boln; 
#/8:. TOKEN pat; 

{ 


QO 
— 
* 


&3. case CCL: 
84; if( testbit( **linp, pat->bitmap ) ) 
(Continued on page 40) 
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INTRODUCING THE MODULA-2 SOFTWARE DEVELOPMENT SYSTEM 


The first complete programming 
environment brings the industry to 
an all-time low. 


Modula-2 has been hailed as 
the programming language of 
the future. Its modular design 
and built-in error-control fea- 
tures make programming more efficient than ever. 
And now there's a system that makes programming 
more affordable than ever. Interface Technologies’ 
Modula-2 Software Development System (M2SDS). 


EASY TO LEARN. 

EFFICIENT TO USE. 

M2SDS features a “syntax-directed” 

editor that makes programming easy 
for beginners to learn. And faster for 
professionals to use. 

With our editor you can enter full 
statements with a single keystroke. 
And save up to 90% on typing time. It 
also gives on-line help in correcting 
undefined variables and syntax errors —which saves 
even more time. 

Multiple editor windows let you refer to one file 
while you edit another. That's 
one more way M2SDS adds 
hours of more creative, more 
ee productive time to your day. 


TURN “WAIT TIME” INTO 
_ “WORK TIME.” When there's 
, no time like real-time, you 
_ can count on the M2SDS 
compiler. Up to 100 lines of 
Modula-2 text can be turned 
into native machine code in 
less than five seconds. 

To create programs using your computer's full 
capacity, there are 18 library modules. And unlike 


Work faster and easier with 
multiple editor 
windows. 







$80.88 


COMPILE | 





other low-priced compilers, 
M2SDS has a linker that 
assembles the components of 
your program. Automatically. 


BREAKTHROUGH TECHNOLOGY. 
BREAKTHROUGH PRICE. M2SDS works with IBM® 
PC, XT, AT or any other 100% compatible computer. 
Any programs you develop, you own. And M2SDS is 
non- copy protected. 

For just $80.88, M2SDS is 
the complete programming 
environment. Including editor, 
compiler, linker, library mod- 
ules, 8087 support and more. 

Or choose the expanded, 
fully upgradeable SDS-XP for 
just $249. Later you can add 
a debugger, foreign object 
import module and tool box 
for even more programming 
capability. And efficiency. 

So whether you're a professional looking for a 
faster way to program, or a novice looking for an 
easier way to learn, there’s a Modula-2 Software 
Development System just for you. 

Call us today for more information or to order 
your M2SDS. Find out how our new low in system 
pricing can put your programming efficiency at an 
all-time high. 


WE ACCEPT CHECKS, MASTERCARD, VISA AND AMERICAN EXPRESS. Price 
does not include shipping and handling. Texas residents add 6.125% Sales Tax. 


INTERFACE 
TECHNOLOGIES 


3336 Richmond, Suite 200, Houston, TX 77098 


It not only has a faster 
compiler, it also saves time by 
compiling while you edit. 






GET MORE PROGRAMMING EFFICIENCY IN A SYSTEM THAT COSTS LESS. IN TEXAS, CALL (713) 523-8422. 


CALL 1-800-922-9049 





Circle no. 50 on reader service card. 





C Ch es f (Listing continued, text begins on page 26) 
Listing Three 


853 
86: 


40 


advance = 1; 
break; 


case NCCL: 
if( !testbit( **linp, pat-—>bitmap) ) 
advance = 1; 
break; 


pr_tok( head ) s*® Ta tools .c "Fy 
TOKEN *head; 
{ * 


* 


if (head->tok == CCL || head->tok == NCCL) 
{ 


printf("string (at Ox%x) =<", head->bitmap ); 
fore. ‘= Os <-Os7 ft 2-44) 
if( testbit(i, head->bitmap) ) 
putchar(i); 


prinet er 3% 


* 


} 


unmakepat (head) /* In tools.c * / 
TOKEN *head; 
{ 

register TOKEN ¥*old_ head; 


while (head) 
{ 


switch (head->tok) 
{ 
case CCL: 
case NCCL: 
free(head->bitmap); 
/* no break, fall through to default */ 


default: 
old_head = head; 
head = head—->next; 
free(old_ head); 
break; 


End Listings 
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| ee ina series of 


_ productivity notes on MS- bos” 


Me software from UniPress. 


ae Subject: Multi- window full 


ee screen editor. 


Cs Multiple windows allow several files 
(or portions of the-same file) to be 


~~ edited simultaneously. Program- 


mable through macros and the built- 
~ in-compiled MLISP™ extension 
language. en 


cA | Subject: Compiler for Ms- pos. 


ek Lattice: Cc Compiler is ‘regarded as 
“the finest compiler for MS-DOS and . 


e LenS on. thousands of 8086 


Subject: Powerful Keyed File. 
Access for MS- DOS... 


PHACT. ISAM i is.a keyed B +-tree 
file manager providing easy access 
to.and-manipulation of records in 

a database. 


Trademarks of: Lattice, Lattice, inc.: UniPress EMACS and MLISP, UniPress 


Software, Inc.; MS-DOS, Microsoft; UNIX, AT&T Bell Laboratories, Carousel Tools, 


Carousel MicroTools, Inc.; PHACT, PHACT Associates; 8086, Intel; T!-PC, Texas 
Instruments; IBM-PC/AT, International Business Machines; DEC Rainbow/VMS, 
Digital Equipment Corp 


Features: 


~ Features: 


@ Famed Gosling Version. 

@ Extensible through the built-in 

MLISP programming language and 

macros. 

@ Dozens of source code MLISP 

functions; including C, Pascal and 

MLISP syntax checking. 

m EMACS runsonTi-PC™ IBM-PC AT™ 

DEC:Rainbow™ or any other MS-DOS 

machine. Requires at least 384k. 

@ Run Lattice® C or PsMake™ in 

the background and EMACS will 

point to any errors for ease of de- 

bugging. PsMake is.a UNIX™-style 
make’ utility.to automate the proc- 

ess of building complex programs. 

@ Optional Carousel Tools: UNIX- 

like facilities including-cat, cp, cd, 

logout, Is, mv, pwd; rm, set, sh 

and.more. 


Features: 


@ Runs on the IBM-PC™ under 
MS-DOS 1.0, 2.0.0r 3.0 


© Produces highly-optimized code.. 


@ Small; medium, compact.and 


~ large address models available. 


@ Standard C library. 


© PLINK—optional full function 
~ linkage editor including dela oe 
and Support Hr, 


a Supports fixed and variable length 

~ records (1-9999 bytes). | f 

‘@ Upto 9 alternate indices are sup Ps 

-ported. 
@ Record locking allows each record ( 

“in the database to allow multiple 


simultaneous updates. 
@ Records can be accessed on full” 
or partial key. 


@ /ncludes full Lattice linkable library | 
~ and high-level. functions. 7 
‘Optional; PHACT-rg, a powerful 


and flexible report generator which. 
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by Axel Schreiner 
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unix/mail (Hanser Verlag, Munich, Germany). ©1984 by 
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/lib/cpp 

This column deals with uses and abuses of the C prepro- 
cessor. It demonstrates some techniques that can save a 
lot of work and even more errors. The discussion applies 
to programming in C in general and makes only very ele- 
mentary assumptions: 


C programs are run through a preprocessor before 
they are handed to the actual compiler. The prepro- 
cessor performs (parameterized) text substitution 
(#define), inserts header files (#include), and can 
exclude parts of the source from compilation (#if). 


Because the preprocessor is independent of the actual 
compiler—and does not know C at all—one can use it in 
particular to extend the C language. Only taste limits 
one’s imagination here... . 


Excluding Text 
Every programmer writes occasional comments. Some- 
times we comment to exclude program parts from a com- 
pilation. Because in Standard C comments may not be 
nested, there is considerable temptation not to comment 
such excluded program parts anymore. 

The following technique for text exclusion is much 
more appropriate: 


#ifdef not_defined 
crash_the_system(NOW); 
/* this definitely goes wrong * / 
#endif not_defined 


Of course, the name not_defined should really not be 
defined. 


Vector Dimensions 


In principle, one can determine the size of a vector by 


using the sizeof operator. However, sizeof yields the size 
in bytes, not in elements. The following macro determines 
the number of elements in an arbitrary vector: 


#define DIM(x) (sizeof (x) / sizeof ((x)[0])) 
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sizeof does not really need parentheses, if it is used to 
determine the size of an object and not of a data type. One 
should, however, enclose macro parameters in parenthe- 
ses. Then things work out for a vector with more than one 
dimension, too: 


main( ) 


{ 
struct { int a; char b; } v[10] [20] [30]; 
printf(“%d %od %d\n”, DIM(v), DIM(v[1]), 
DIM(v[1] [2])); 


The program produces the values 10, 20, and 30. 
Parentheses should not be necessary in this use of sizeof 
because a vector subscript should have precedence over 
sizeof. However, my copy of the Mark Williams CP /M-86 
C compiler does not seem to know this. 
We can carry these ideas somewhat further. The last 
element of a vector is 


#define LAST(x) ((x)[DIM(x)—1]) 
and the customary for loop is, for example: 
#define END(x) ((x) + DIM(x)—1) 
int vector[ 10], * vp; 
for (vp = vector; vp <= END(vector); ++ vp) 
The compiler evaluates sizeof during its evaluation of 
constant expressions. This circumstance can be used to 
determine the length of constant strings in an efficient 
and flexible fashion: 
#define STRLEN(s) (sizeof (s) — 1) 
char buf[STRLEN(‘“‘model”’) + 1]; 
strcpy(buf, ‘“‘model’’): 


There is the danger, however, that STRLEN is used for 
other objects (i.e., non-strings) by mistaking it for strlen. 


Trace 
It is well known that a macro call is not recognized in a 
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constant string. Less well known, but more useful per- ‘ 
haps, is that a macro parameter is recognized and re- Only $95 with FULL SOURCE CODE! 
placed within the replacement text of a macro definition. 
Rather than 


printf(‘‘variable = %d\n”’, variable); 
printf(“formula = %f\n”, formula); 


we write 
#define SHOW(val,fmt) fprintf(stderr, \ ‘*...an incredible learning tool.” Byte 
SHOW: val = fmt\n’, val) 
For only $95, Q/C is a ready-to-use C compiler for CP/M with com- 
: plete source code. Here's what BYTE (May 1984) said: “Q/C ... has 
SHOW(variable, %d); a portable library and produces good code quality. If you want to 
SHOW (formula, %f); learn compiler construction techniques or modify the standard lan- 
guage, Q/C is the obvious choice.” 
The latter is easier to use and conveys more information . = ce code for compiler and over 75 library functions. 
; ; : e Strong support for assembly language and ROMs. 
because val is replaced in the format by the entire macro «No litafise fees for object code. 
argument. e Z80 version takes advantage of Z80 instructions. 
A bit of caution is required: if the % operator is used ® Q/C is standard. Good portability to UNIX. 
within val, there will be problems with the format. This Q/C has casts, typedef, sizeof, structure initialization, and function 
can be corrected as follows: typing. It is compatible with UNIX Version 7 C, but doesn't support 


long integers, float, parameterized #defines, or bit fields. Call about 
our new products: Q/C profiler, Z80 code optimizer, and 280 as- 
#define SHOW(val, fmt) fprintf(stderr, **%s\ sembler and virtual linker, all with full source code! 


ary 99 66 9 
= fmt\n”, ‘val’, val) CODE 5266 Hollister, Suite 224 


WORKS Santa Barbara, CA 93111 
A macro can be defined without a replacement text. WURKRS = (805) 683-1585 
Uses of SHOW thus can be eliminated easily from the ee, CP/M, Z80, and UNIX are trademarks of Quality Computer Systems, Digital 
compiled program altogether. Alternatively, we can spec- esearch, Zilog, Inc., and Bell Laboratories respectively. 
ify a condition: Circle no. 23 on reader service card. 





#Hifdef DEBUG 
char debugflag; 
# define SHOW(val,fmt) (debugflag & &\ 
fprintf(... )) 
#else !DEBUG 
# define SHOW(val,fmt) /* null */ 
#endif DEBUG 


In this example, SHOW is always used as a statement and 
not as an expression. Using && rather than if has two 
advantages: we do not have to use SHOW as a statement, 
and use of SHOW does not invite an unintentional else. 
debugflag, by the way, should be used as a bit vector, e.g.: 


#Hdefine SHOW(level, val, fmt) (debugflag & \ 
1<<level & & fprintf(... )) 


Now we can maintain different sets of trace information 
at levels 0 through 7. 


Global Variables 

Do you like modular programs with lots of sources, make- 
file, a central header file, and the (feeble) hope that all 
global soeene really match? Do you like to lint, too? 
The following technique simplifies maintaining global 
variables. The central header file contains about the 
following: 
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#ifndef GLOBAL 
fg define GLOBAL extern 
#Hendif GLOBAL 
GLOBAL int global_variable; 


If GLOBAL is not defined, a variable declared GLOBAL is 
declared extern. 

Within exactly one of the source files that include the 
header file, we have to take care that the variables that 
were declared extern elsewhere are really defined. In the 
main source file, we therefore write: 


#define GLOBAL /* to define global variables * / 
#include “‘definitions.h” 


One can even initialize global variables in this context 
without resorting to the —m flag instructing the loader Id 
to accept multiple definitions: 


#ifdef GLOBAL 

# define INIT(x) = x 
#else ! GLOBAL 

# define GLOBAL extern 
# define INIT(x) 

#endif GLOBAL 


GLOBAL int variable INIT(10); 


This technique is not very practical for aggregates. The 
following variant is easier to use: 


#ifdef GLOBAL 
# define INIT(x) =x 
# define GINIT 
#else ! GLOBAL 
# define GLOBAL extern 
# define ENTER): *: 
# undef GINIT 
#endif GLOBAL 
GLOBAL struct { int a; char b; } variable INIT( ) 
#Hifdef GINIT 
{10,-*b"}; 
#endif GINIT 


This method requires that the C preprocessor permit a 
macro call with an empty argument list and that the C 
compiler not complain about superfluous semicolons be- 
tween global declarations. This method is admittedly no 
longer very elegant, but it has the significant advantage 
that the text of central definitions exists only once in all 
Cases. 


/bin/lex 
Now you see it... 

lex programs have lots in common with fashions: the 
effect is not always what the pattern promises. If a func- 
tion generated by lex is used as a front end for a parser 
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generated by yacc, it is sometimes very hard to decide 
where to place the blame for a bug: is there a bug in the 
grammar presented to yacc, or are the patterns that were 
processed by lex at fault? 

The following technique! permits the construction of a 
source file for lex that is conditionalized so that a debug- 
ging version can be compiled at any time without any 
changes to the source. To test the results of lex, all inputs 
that the parser is to receive later are first presented to the 
debugging version. This version of the front end then 
prints a mnemonic version of the values that the parser 
would receive: 


Zo 
Hifdef TRACE 
# include “‘assert.h”’ 
main( ) 
char *cp; 


assert(sizeof(int) >= 
sizeof(char *)); 

while (cp = (char *) yylex( )) 
printf(“%—.10s is \““%s\’\n”, 


cp, yytext); 
} 
# define token(x) (int) ‘‘x” 
Helse ! TRACE 
# include “‘y.tab.h”’ 
# define token(x) x 


#endif TRACE 
70} 


Normally, TRACE is undefined, and the tokens (.e., 
the values that are to be returned to the parser) are de- 
fined in the file y.tab.h generated by yacc as: 


#define NAME 257 


These defined names are used directly in the source pre- 
sented to lex and are returned as a result of the function 
yylex( ). 

If TRACE is defined, y.tab.h need not yet exist. In this 
case (i.e., in the debugging version), we want to return a 
string as a result of yylex( ) that is then printed by the 
main( ) program included here.? Analyzing the debug- 
ging output is most easily accomplished if the output uses 
exactly those words that later will appear in y.tab.h—i.e., 
that are a result of %token statements in the source pre- 
sented to yacc. 

We are using the fact that macro parameters are re- 
placed within strings in the replacement text of a macro. 
token(x) returns either x itself (to be passed on to yacc) or 
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a string “‘x” for the purposes of TRACE. 
The remainder of the lex program is now quite obvious: 


Jo% 


[o—9] + return token(NUMBER); 

[a—z_A—Z] [a—z_A—Z0—9]* return word( ); 
[ \t\n] + 
return token(yytext[0]); 


%o% 


struct reserved { char * text; int yylex; } reserved[ ] = { 
{ “begin”, token(BEGIN) }, 
{ “end”, token(END) }, 
(char *) 0}; 

int word( ) 


struct reserved *rp; 
for (rp = reserved; rp— >text; ++ rp) 
if (stremp(yytext, rp— >text) == 0) 
return rp— >yylex; 
return token (NAME); 


Yes, there should have ‘cen a binary chopped search, 
but we are dealing only with the ,. ‘nciples. 


/usr/src/main.c 

Argument Standards 

Command arguments are always good for Surprises. 
Sometimes several options may be combined into one ar- 
gument; sometimes each option must be a separate argu- 
ment; sometimes a parameter value follows as part of the 
argument; sometimes it does not; sometimes all of the 
above; sometimes some of the above... . 

If one consults the sources of certain Unix utilities, one 
learns to appreciate the flexibility of C (or the infinite 
patience of the C compiler). Everybody does his or her 
own thing, and most do it differently in every program! 
However, it would be so simple to develop a standard as in 
Listing One, page 48). 

At show( ), arge contains the number of arguments that 
have not yet been processed, and *argv is the first one of 
these. This argument can be a single — character: in some 
ancient (cat) and almost new (tar) utilities, this indicates 
that standard input or output is to be used in place of a file 
argument. 

Flags can be combined at will. If an option requires a 
value, it can follow immediately or it can be an argument 
of its own. 

Following a standard proposed in the “USENIX login,” 
an option —— serves to terminate processing of the option 
list. Apart from that, options must start with — and must 
precede other arguments. These rules, however, still do 
not cover all possibilities of pr. 

The skeleton above is useful but anatomically some- 


46 


_ 


what terrifying. The following incarnation is perhaps 
more attractive: 7 

#include <stdio.h> 
#include “main.h” 


| 
| 
| 


| 
#define show(x) printf(‘*x = Tod\n”, x) 
#define USAGE fputs(“cmd [—f][—v  #]\n’,\ 


1 
/ 
/ 


stderr ), exit(1) 5 


MAIN 


intf = 0,v = 0; 


OPT 
ARG ‘f?’: 
Feed; 
ARG‘v’: 
PARM 
v = atoi(*argv); 
NEXTOPT 
OTHER 
USAGE; 
ENDOPT 
show(f), show(v), show(argc); 
if (argc) 
puts(*argv); 
} 


The trick, of course, is concealed in the header file 
main.h: here the macros OPT, ARG, PARM, NEXTOPT, 
OTHER, and ENDOPT must be defined using exactly 
those texts that were given explicitly in the previous ex- 
ample, as in Listing Two, (page 50). 

The definitions are not exactly beautiful, especially if 
they need to be compacted so that the C preprocessor 
accepts the lengthy replacement texts, but they need to be 
developed only once to make the argument standard 
available for all applications. An application then is al- 
most self-documenting: 


MAIN 
is the function header of the main program. 


OPT 
starts the loop during which the options are processed. 


ENDOPT 
completes this loop. 


ARG 

within the loop starts the processing of one option; the 
name of the option (a single character) enclosed in 
single quotes and a colon must follow. 


PARM 

follows the option specification if the option has a val- 
ue parameter; the parameter itself is then available as 
* argv. 
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NEXTOPT 3 mflag = |; 


is used once such a parameter has been processed to | OTHER 
advance to the next command argument. if (isdigit(**argv)) 
columns = atoi(*argv), 
OTHER NEXTOPT 
must follow all options; following this, one specifies else 
what should be done if an option could not be recog- : . USAGE, exit(1); - 
nized. NEXTOPT may be specified in this case, too. ENDOPT 
The unknown option itself is **argv. 
if (argc) 
After the OPT ENDOPT loop, argc contains the number { 
of command arguments that have not yet been processed, if (**argv = = ‘+’) 
and *argv is the first such argument. Arbitrarily many { 
(different) options ARG can be specified. pr would be im- PARM 
plemented approximately as follows: first_page = atoi(*argv); | 
continue; 
MAIN ? \ 
{ 
do dopr(*argv); 
{ 
OPT | else | 
ARG ‘h’: dopr(‘‘—’’); 
PARM \ while (argc > 1); 
header = *argv; 7 } 
NEXTOPT 
ARG ‘w’: There is a blemish: — columns must be secified as a single 
PARM | argument (because — alone refers to standard input). 
width = atoi(*argv); ; 
NEXTOPT Notes 
ARG ‘I’: ' This technique was developed for the book Introduction 
PARM to Compiler Construction by A. T. Schreiner and H. G. 
length = atoi(*argv); Friedman, Jr., Prentice-Hall, 1985. 
NEXTOPT * The technique requires that a pointer to a character 
ARG ‘t’: string be returned in place of an int value. This is not 
tflag = 1; possible across all implementations of C; e.g., it is proba- 
ARG ‘s’: bly not allowed on the 7300 systems. We guard against a 
PARM portability problem by using assert( ). DD) 
delimiter = **argy; | 
+ + Farey; 
NEXTOPT Vote for ae Bae eccanes 
ARG‘m’: Circle Reader Service No. 192. 
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2 


ie 









BLANK 
PC BOARD 
WITH DATA 

$39.95 


EPROM II 
FULL 










EPROM KIT 
$69.95 


SUPPORT 
IC's 
PLUS CAPS 
$16 





* 


A&T EPROM 

ADD $35.00 
We took our very p pular 32K 
additional logic to create a more versatile EPROM/RAM Board. 








$100 EPROM Card and added FULL 
SOCKET SET 
$15 











FEATURES: «* This one board can be used in any one of four ways: 
A. As a 32K 2716 EPROM Board 
B. As a 32K 2732 EPROM Board (Using Every Other Socket) 
C. As a mixed 32K 2716 EPROM/2K x 8 RAM Board 
D. As a 32K Static RAM Board 











and USART combo IC. 
*x 3 Terminal Emulation Modes which 




















i i HM6116) RAM's 
are Dip Switch selectable. These & os. Uses New 2K x 8 (TMM2016 or j 
include the LSI-ADM3A, the Heath BLANK PCB WITH 2716 wv & it Nai Cuce (As Proposed) 
‘Tin ralcedigee Set vice CHAR. ROM, 2732 MON. ROM ~~ Ye 200 NS (FAST!) RAM’S are standard on the RAM Kit 

s i f “ Qe D Supports both Cromemco and North Star Bank Select 
Any polarity of video or sync. $49 95 peace be 
Bee tne es eo rene On Board wait State Generator 


Small Size: 6.5 x 9 inches. 


‘ Every 2K Block may be disabled 
Upper & lower case with descenders. 


Addressed as two separate 16K Blocks on any 64K Boundary 
Perfect for MP/M* Systems 
RAM Kit is very low power (300 MA typical) 


32K STATIC RAM KIT — $109.95 


For RAM Kit A&T — Add $40 


SOURCE DISKETTE - ADD $10 


7 x 9 Character Matrix. SET OF 2 CRYSTALS - ADD $7.50 
Requires Par. ASCII keyboard. 


ITH 8 IN. 
SOURCE DISK! $9995 (COMPLETE KIT, 
# ZRT-80 


+ + + + + + + + eH H 





+ + + + * 












(CP/M COMPATIBLE) 2K VIDEO RAM) 


Digital Research Computers 


P.O. BOX 461565 - GARLAND, TEXAS 75046 - (214) 225-2309 












TERMS: Add $3.00 postage. We pay balance. Orders under $15 add 75¢ 
handling. No. C.O.D. We accept Visa and MasterCharge. Tex. Res. add 
5-1/8% Tax. Foreign orders (except Canada) add 20% P & H. Orders over 
$50, add 85¢ for for insurance. 


*TM OF DIGITAL RESEARCH INC. (CALIF.) WE ARE NOT ASSOCIATED WITH DIGITAL RESEARCH INC. (CALIF.) THE SUPPLIERS OF CPM SOFTWARE 


Circle no. 33 on reader service card. 


w 





[, June 1985 


’s Journa 


r. Dobb 


D 











Electronic 
Circuit 
Analysis 


e New release 

e Transient, AC, DC analysis 
e Full nonlinear 
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Information 
Age Issues 


by Dean Gengle 


The real issues in telecommunications 
dwarf questions about protocol and 
baud rate. This is an essay on 
responsibility. 
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y first experiences with a modem, a microcom- 
M puter, a television set, and a telephone linked to- 

gether—with me in the loop—were much like my 
first discoveries regarding the true significance of portions 
of my own anatomy. These experiences combined the joys 
of intellectual insight, emotional pleasure, physical in- 
volvement, and all the wonder we associate with the notion 
of “surprise.” 


On-Line Life 

I conducted my early experiments in on-line living with no 
misgivings at all. I was able to consider only the positive 
possibilities contained in this new technical capability. Mo- 
democracy! Distributed networks! Grass roots anticipatory 
guidance systems! It all seemed within reach if only every- 
one would use these tools. The sheer weight of the new 
experiences themselves bolstered my initial faith that folks 
would come to use these tools in the “right” way. 

I remember distinctly the moment when the inevitable 
mental disappointment occurred and reality set in— 
about six weeks after my first modem fix (ca 1980). I was 
logged on a local bulletin board system (BBS). I had just 
finished entering a private reply to a particular message; 
it was meant to go directly to another user of the system. 
On my screen flashed “Hi.” Weird response. Commands 
issued to the remote computer no longer worked. Instead, 
the system operator (sysop) had taken over and was typ- 
ing messages at me directly. 

‘“T’ve been watching your session,” he wrote, in the 
most casual and matter-of-fact manner. “Thought I’d say 
hello.” In that instant, the scales fell from my eyes, so to 
speak. My illusion of privacy was shattered, an illusion 
maintained without my awareness by a number of sup- 
porting factors. I was working out of my own apartment, 
a bedroom with a spare corner space, in fact. What could 
be more personal or private? Also, I’ve never had any 
reason to think that my phone was tapped, so I’ve always 
regarded phone conversations as “‘private’” My modem is 
hooked to the phone, ergo... . Besides, the remote com- 
puter system itself reinforced my illusion by allowing 
“private” messages between individuals and by requiring 
a password to read “‘mail.”’ 

All along, that sysop might have been looking over my 
shoulder, reading what I typed, aware of when and how I 
used the system. The implications of that made me decid- 
edly uncomfortable. Since then, I have become aware of 
other sysops who’ve turned their computers into dictator- 
chips. They not only eavesdrop at will but run their sys- 
tems with the firm style of a Khomeni. (Confess or I pull 
out your passwords!) Large systems and small are run this 
way. The truly astounding thing is that some people seem 
to /ike that sort of relationship. Still, I hope, there num- 
bers are not great. Not here. Not in the US. of A. 





Dean Gengle, 1150 Bryant St., San Francisco, CA 94103 
(415) 861-8733. 
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Info Liberties 

The net result of this is that I’ve been led, willy-nilly, into 
what has become an ongoing interest in civil liberties and 
technology. I have found that specific design decisions of 
an apparently “purely technical” nature can and often do 
have an effect on what we consider to be our personal 
liberties and freedoms. Conversely, social values can af- 
fect what and how new technology is designed. 

The controversies that arise from this interplay taken 
together can be called information age issues. They all 
focus on the handling of information: who generates it; 
who can store it; who can ship it around; who can have it; 
who can control it; who can copy it and who cannot; what 
is and is not legitimate information in a given instance— 
hence, ‘“‘information age.” 

It is becoming increasingly difficult to draw a firm line 
between the idea of telecommunications and the idea of 
computing. Some commentators have coined terms such 
as telecomputing and compunications to make this point. 
(I will spare the reader any further use of these, however. ) 
Distinctions between media are blurring fast. All kinds of 
information now can take digital form to be zapped across 
various channels, whether phone lines, fiber optic cables, 
cellular networks, or satellite transponders. 

For the time being, I find it useful to think of telecom- 
munications as any form of electronic transmission re- 
quiring temporary or permanent physical connections. 

The examples that follow are representative of the di- 
lemmas we already confront. I can only hint at telecom- 
munications-related conundrums (or nightmares) we 
may have to face in the months and years directly ahead. 


Freedom from Eavesdropping 

The kind of surveillance conducted by the sysop I de- 
scribed earlier is not the only kind that new technologies 
have made possible. Signals of all kinds are now being 
intercepted on a widespread scale. On the governmental 
level, spy agencies around the world engage in SIGINT 
(signal intelligence) work: 


e Radio and television broadcasts, voice and data phone 
calls, satellite channels, international telex and TWX 
and Western Union transmissions, and amateur radio 
broadcasts are all monitored. The superpowers con- 
duct the most sophisticated monitoring, as one would 
expect, but the technology of signal interception is get- 
ting cheaper every day. 

¢ Telephone company officials, FBI agents, and credit 
card companies go on “fishing expeditions” in local mi- 
crocomputer-based message systems. Ostensibly, they 
are looking for exchanges of “illegal” data, such as com- 
puter access numbers and passwords, phone credit card 
numbers, and so on. Who knows what other subversive 
material these official intruders might turn up? 

e Although laws surrounding the tapping of voice tele- 
phone calls are stringent when they deal with what may 
and may not be used as trial evidence or when warrants 
are required and when they are not, no such laws cover 
eavesdropping on private data transmissions. With large 
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computers doing the listening and sifting, it is a simple 
uuactter to monitor thousands of data phone calls. 


Meanwhile, in the commercial sector, cellular mobile 
telephone systems are being marketed heavily in major met- 
ropolitan areas across the country. However, cellular chan- 
nels can be monitored with easily built “scanners” similar to 
those used to monitor police and CB channels. 

Thus, as the cellular service suppliers themselves ad- 
mit, those top level business calls we make from the mid- 
dle of traffic jams may not be private. The service suppli- 
ers downplay this aspect of cellular mobile 
telecommunications. After all, there are 666 assigned 
channels, and the channel assignment for a particular call 
does shift as the user moves from cell to cell. But even if it 
isn’t technically feasible to build a scanner capable of fol- 
lowing a particular call, you probably shouldn’t conduct 
sensitive business by cellular phone anyway, according to 
the suppliers. So much for productivity in traffic jams. 

A few companies already are planning to connect mo- 
dems and micros to cellular telephones. Get your elec- 
tronic mail from anywhere, anytime. There is no reason to 
think this evolution will stop until someone makes a de- 
vice that is a cellular phone, voice and data terminal, and 
microcomputer, all in one portable package. The tempta- 
tion to use such a device will grow right along with the 
temptation to listen in. 

“Freedom from eavesdropping” is more apt as a rally- 
ing cry than “right to privacy” because certain forms of 
eavesdropping do not intrude directly on our privacy. For 
example, others can gather and analyze information 
about your phone calls even if they do not monitor direct- 
ly the content of the calls themselves. Within many corpo- 
rate settings, this already is being done. 

Information about whom you call, when you call, the 
duration of the call, and the frequency of calls to particular 
numbers all can be collected without your knowledge. To 
some extent, the same laws covering voice phone tapping 
hedge the ability of police and government to use such 
information. However, no such laws cover intraorganiza- 
tional phone monitoring. Monitoring systems are marketed 
under the rubric of “phone management” and “automatic 
call distribution and reporting systems.” 

One company advertisement for this kind of system is a 
touch Orwellian in its copy: “To check out your staff's 
performance, you can either walk around the office. Or 
get one of [our] automatic call distribution systems. They 
actually print out detailed reports on every single person’s 
hourly performance: Who needs a raise. And who needs 
improvement.” 


Freedom to Play vs. the Drive for Security 
Given the complexity of our society, we are far more like- 
ly to lose our valued freedoms bit by bit than all at once. 
Freedoms also are more likely to erode faster as a result of 
nongovernmental institutional decisions. 

As technicians, software designers, hardware design- 
ers, and computer users, we have as much to lose through 
the misapplication of technology as anyone else. We are 
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also, perhaps, in a better pusition to prevent misapplica- 
tions than anyone else. 

There is much attention paid these days to the ubiquitous 
“hacker,” whoever that may be. The hacker is linked in the 
public mind with computer crime. This was not always so, 
although the reasons for this association are many. Yet, 
whether one thinks of oneself as a hacker or not, the solu- 
tions to the problems of computer crime don’t seem to lie in 
the direction of hiring more consultants. Nor does it make 
much sense to try to rehabilitate the image of the hacker by 
making him or her into some sort of cultural hero(ine). 

Along with the hacker image, the public is being sold a 
bill of goods concerning computer crime. Such crime, by 
and large, is portrayed as something an individual does to 
an organization, using a microcomputer. The public sees 
computer crime as “breaking and entering” large sys- 
tems, whether to take money gains, information gains, or 
both. But other kinds of computer abuse are not labelled 
as “crimes” or “criminal” and, for the most part, are not 
even mentioned in the mass media that shape public con- 
sciousness on such matters. The daily papers do not dis- 
cuss the idea that data eavesdropping by government, cor- 
porate, or even private individuals on private citizens may 
also be criminal. Nor does the idea that the IRS or NSA 
may be tapping the communications and computers of 
private individuals receive much consideration. The laws 
that are discussed and passed are laws aimed at individual 
abuse, not large-scale institutionalized abuse. 

Often, the quest for security tramples our rights to priva- 
cy and individuality. In the drive for absolute security in an 
absolutely efficient society, we may lose the one thing we 
need in order to survive and prosper in the global informa- 
tion economy: the freedom to play and its attendant 
creativity. 

No matter what the end product, creative (and there- 
fore innovative) ideas are nurtured in an atmosphere of 
play. The balance between control and freedom must be 
struck in actual design decisions we make from day to 
day. The impact of one implementation vs. another on our 
overall freedoms must be part of design decisions. 

High on the list of needed design developments in an 
era of mass telecommunications is some sort of public key 
encryption and signature system that is mass-producible 
and inexpensive and secure from any kind of eavesdrop- 
ping. The jury still seems to be out on whether or not the 
DES (Data Encryption Standard) is really secure from 
megacomputer cracking power. This is an area where 
some effective designs could improve all our on-line lives, 
but it is only one example. 


The Future of Paranoia 
Future problems in telecommunications may make to- 
day’s problems seem relatively trivial by comparison. As 
expert systems take up residence in our telecommunica- 
tions networks, designers will have to become even more 
concerned with individual freedoms—constitutional and 
civil liberties—than they are now. 

For example, it is feasible to expect that various infor- 
mation suppliers, data banks, and mass information utili- 
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ties will be able to learn about users in sophisticated ways: 
what your interests are, what items to call to your attention 
based on your past use of the system, what you read and 
what you ignore, what kind of equipment you have, your 
age, marital status, and economic position, and so forth. 

It would be nice to interact with a system that appears 
custom tailored to your needs and use. However, it is not a 
big leap to go from information about how you’ve inter- 
acted with, say, a “smart Source” or “intelligent Compu- 
Serve” to a psychological and/or political profile. This 
sort of information analysis is good not only for marketers 
who want to sell you things but for politicians, power 
junkies, and competitors who want to know all they can 
about you for reasons of their own. 


Approaches to Action 

People directly involved in making technical decisions for 
design or implementation are, as I said earlier, in a good 
position to act as ad hoc advisers to the general public, the 
media, and lawmakers at local, state, and federal levels. 
Technical people, along with artists, can act as “‘antennae 
for the race” in matters of sociotechnical importance. If 
you are involved in the early design stages of an expert 
software system to correlate IRS data with SSI informa- 
tion, to take one hypothetical example, you’ll know before 
the rest of us do how that system can be abused and put to 
uses never intended in the first place. 

We’ve all heard that the price of liberty is eternal vigi- 
lance. But just how one remains vigilant in an age of rapid 
technological change is not so obvious. Responses to up- 
coming issues can take a variety of forms, whether indi- 
vidual, institutional, or governmental. It has become an 
article of faith for me, having studied and worked in this 
arena for several years, that individual responses are pref- 
erable to institutional ones and institutional ones prefera- 
ble to governmental intervention. However, we will need 
all these approaches. 


Individual Responses 

Individual technicians and designers play a large role in 
the creation of technical standards and on standards bod- 
ies. In telecommunications, for instance, global standards 
for videotext, viewdata, and teletext systems have yet to 
emerge. Standards can affect the kinds of competition 
possible and hence the marketplace. It is not unheard of 
for standards to be adopted, not on their merit, but for 
overtly political reasons. 

More individual participation in the creation of new 
standards, therefore, is one way in which technicians and 
designers can respond. 

Educating our friends and neighbors who are not tech- 
nically inclined is another way to respond to the changes 
raining down. Explicit information on the connections be- 
tween technical possibilities and quality of life is needed 
on a wider scale than ever before. 


Organizational Responses 


When biotechnology began to hint that doctors and bio- 
logical technicians could have a profound influence on the 
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direction and quality of human life, medical schools and 
other establishments of higher learning began to teach 
formal courses in medical and biological ethics. 

Today, when computer technology has had—is hav- 
ing—an equally profound effect on our quality of life, 
almost none of the establishments responsible for techni- 
cal education are providing courses equivalent to those 
taken by medical students. A few formal studies of “tech- 
nical ethics” and “‘information age ethics” are being con- 
ducted, but these are one-shot projects, not long-term 
educational efforts. Therefore, one possible institutional 
response to information age issues is to provide courses 
that combine the study of ethics and morals with the 
study of information science and the future of 
telecommunications. 


Legal Responses 

It’s important that, in the discussion of what is and is not 
“computer crime,” we not let high-priced “security con- 
sultants” or politicians with their own axes to grind make 
our laws for us. 

It is especially important that we not let the rare occur- 
ence of a “hacker break-in” distract us from the larger 
and potentially more serious issues at hand. The Privacy 
Act and the Freedom of Information Act, for example, 
have suffered consistent erosion over the last 10 years by 
administrative decree and bureaucratic red tape. 

As more government information is put on line and 
made accessible by computer, no one is talking about our 


rights to access information that is not private and that 
was collected legally at taxpayers’ expense. Census data 
and Library of Congress information come to mind. (You 
can get census data now, certainly, if you have certain 
kinds of computers and are willing to pay a lot for it.) The 
government is probably the largest single source of useful 
information in this country. Making that information 
available to the micro-using public is an issue worthy of 
Congressional attention. 


Last Words 
I don’t have any. I am willing to bet that some of the 
people who read this piece are engaged, even now, in de- 
bates on design that will come to wider attention only after 
a particular piece of outrageous hardware or software has 
been manufactured and distributed. Even now, you proba- 
bly can think of a dozen or so issues I’ve not been able to 
cover here because of my own ignorance or lack of space. 
In this business of telecommunications, there are no 
last words. Therefore, for all our sakes, I urge you to add 
yours to the heap. 


Dean Gengle is a software documentation specialist and 
consultant at CommuniTree Group in San Francisco. He 
is the author of The Netweaver’s Sourcebook. DD} 
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Modems: 2400 Bit/Sec 


and Beyond 





by Dale Walsh 
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its simplest form, employs bina- 

ry signaling common in logic and 
microprocessor circuits. A “high” 
signal is one, and a “low” signal is 
zero. We have seen dramatic in- 
creases in how fast electronic logic 
devices can switch binary logic levels. 
Each new computer, it seems, is sev- 
eral times faster than its predecessor. 
This is achieved primarily by reduc- 
ing large-scale integration (LSI) de- 
vices in size to increase device speeds. 
We in the communications field 
would say “they kept binary signal- 
ing but increased signal bandwidth.” 


: lectronic data communication, in 


(2) construct densely packed signal- 
ing alphabets so that each signaling 
interval uniquely specifies more than 
one data bit. 


Available Bandwidth 

The available telephone channel 
bandwidth is approximately 200-3200 
Hz. Lower speed modems carve out 
narrow slices near the center where 
channel distortions are at a minimum. 
But as you move out from the middle, 
things get sticky. Band-edge charac- 
teristics vary widely from call to call 
and, near the limits, are extremely 
hostile to data signals. Modem evolu- 


The one sure thing about the new 2400-baud mo- 
dems ts that we'll find them intolerably slow before 
the next thing comes along. 


We usually associate bandwidth 
with frequency limits: our hearing 
bandwidth is from 20 Hz to 12,000 
Hz, for example. But bandwidth also 
limits how fast things can move. Run 
in water and you appreciate that wa- 
ter is a narrow bandwidth medium, at 
least for physical movement. 

In their efforts to keep pace with 
the demand for higher speeds, mo- 
dem designers immediately collided 
with a limited resource: by and large, 
signal bandwidth, set by the tele- 
phone channel, is fixed. Two ap- 
proaches will increase speed: (1) use 
more of the available bandwidth, and 


Dale M. Walsh, US. Robotics Inc., 
477 East Butterfield Rd., Lombard, 
IL 60148. 


tion, as a result, favored development 
of complex signal alphabets before the 
final assault on unused bandwidth. 
The Bell 103 and other dial-up, full 
duplex modems belong to a class 
called Frequency Division Multiplex- 
ing (FDM) modems. They send and 
receive simultaneously using two 
non-overlapping frequency bands— 
much like two radio stations tuned at 
different frequencies. By protocol, 
the calling modem uses the lower fre- 
quency band; hence the terms “‘Origi- 
nate” and “Answer” bands. The fig- 
ure (page 57) shows these bands for 
the Bell 103 and Bell 212 modems. 


Signal States 

“One if by land, two if by sea,” and 
Paul Revere was on his way. The 
flash of light was a data symbol, and 
one bit per data symbol did the job. 
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The 300 bit/sec 103 modem uses a 
similar scheme: one tone for a one 
and a different tone for zero. It’s a 
fairly simple scheme and easily im- 
plemented with today’s technology. 
The Originate and Answer bands 
each use about 300 Hz of the roughly 
3,000 Hz bandwidth that is available. 

To quadruple data rates to 1200 
bit /sec, modem designers made three 
changes. First, they changed the ba- 
sic signaling scheme from frequency 
modulation (as in FM radio) to phase 
modulation; the latter more efficient- 
ly uses available bandwidth. Second, 
they increased the signaling alphabet 
from two states (O and 1) to four 
states (0, 1, 2, 3); hence, each data 
symbol uniquely signals two bits. Fi- 
nally, they doubled the baud rate (the 
rate at which data symbols are sent 
from transmitter to receiver) from 
300 to 600; this boosted the Originate 
and Answer bandwidths to approxi- 
mately 800 Hz each. 

These changes significantly in- 
creased modem complexity. But LSI 
technology rode to the rescue. Faster 
microprocessors handled the modula- 
tion and demodulation tasks. More 
importantly, the complicated 212 an- 
alog filters that separate high and low 
(Answer and Originate) bands were 
reduced to single LSI chips. 


2400 

The move from 1200 to 2400 bit/sec 
distinctly ups the ante.' Designers de- 
cided not to increase signal band- 
width further, primarily so that they 
could use 212 filter chips in 2400 bit / 
sec modems and so that 2400 mo- 
dems could conveniently fall back to 
a 212 mode. 

Instead, they increased speed by 
changing the signaling scheme from 
phase modulation to quadrature am- 
plitude modulation (QAM). In QAM, 
you can increase the signal alphabet 
by varying both signal phase and am- 
plitude. A 2400 bit/sec modem sends 
16 phase-amplitude combinations. 
Each combination corresponds to four 
data bits. Therefore, the modem baud 
rate between transmitter and receiver 
is the same for both 212 and 2400, but 
each 212 data symbol carries two data 
bits while each 2400 modem data 
symbol carries four data bits. 
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® Best Screen Handling Available ¢ Windows @ Full Set of Color Graphics 
Functions @ Better String Handling Than Basic ¢ DOS Directory and File Man- 
agement e Execute Programs, DOS Commands and Batch Files ¢ Complete 
Keyboard Control e Extensive Time Date Processing @ Polled ASYNC 
Communications ¢ General DOS BIOS gate e Data Entry e And More e 


@ The Library is compatible with: Lattice. Microsoft, Computer Innovations, Mark Williams 
and DeSmet. Available Soon: Digital Research, Aztec and Wizard. 


C Compilers: Lattice C—$349, Computer Innovations C86 — $329; Mark Williams C — $449. 


C UTILITY LIBRARY $185. Special prices on library & compiler packages. 


Order direct or through your dealer. Specify compiler when ordering. Add $4.00 shipping for 
UPS ene $7.00 for UPS 2-day service. NJ residents add 6% sales tax. Master Card. Visa, 
check or P.O. 





— a — 
mmm § ESSENTIAL SOFTWARE, INC 
MH PO.Box 1003 Maplewood, New Jersey 07040 914 762-6605 
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pored?.- 


for C programs to 
compile and link? 








Use C-terp 


the complete C interpreter 


This is the product you've been 
waiting (and waiting) for! 


Increase your productivity and avoid 
agonizing waits. Get instant feedback of 
your C programs for debugging and rapid 
prototyping. Then use your compiler for 
what it does best...compiling efficient code 
... Slowly. 


C-terp Features 
¢ Full K&R C (no compromises) 


® Complete built-in screen editor-- 
no half-way house, this editor has every- 
thing you need such as multi-files, inter-file 
move and copy, global searching, auto- 
indent, tab control, and much more. 

¢ Fast-- Linking and semi-compilation are 
breath-takingly fast. (From edit to run 
completion in a fraction of a second for 
small programs.) 

* Convenient-- Compiling and running are 
only a key-stroke or two away. Errors 
direct you back to the editor with the 
cursor set to the trouble spot. 

® Object Module Support — Access functions 
and externals in object modules produced 
by C86 or Lattice c or assembly language. 
Utilize your existing libraries unchanged! 

° Complete Multiple Module Support- 
Instant global searches, auto-compile 
everything that’s changed, etc. 


¢ Many more features including batch mode, 
8087 support and symbolic debugging. 


¢ Runs on IBM PC, DOS 2.x, 192K and up. 
* Price: $300.00 (Demo $45.00) MC, VISA 


Price of demo includes documentation and shipping 
within U.S. PA residents add 6% sales tax. 
Specify C86 or Lattice version. 


GIMPEL SOFTMARE 


3207 Hogarth Lane © Collegeville, PA 19426 
(215) 584-4261 


*Trademarks: C86 (Computer Innovations), Lattice 
(Lattice Inc.), IBM (IBM Corp.),C-terp (Cimpel Software) 
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Performance 

What does this cost? First, design 
complexity quadruples. The design is 
more exacting and permits fewer 
simplifying short cuts. 

Second, an inherent performance 
loss is associated with using 16 differ- 
ent signals rather than four. Imagine 
a signal system that flashes one of 
four colors, each color representing 
two bits. To convert to 16 colors 
would degrade the system’s ability to 
distinguish colors, especially when 
they are surrounded by other inter- 
fering color flashes. 

However, the performance differ- 
ence between 212 and 2400 modems 
is not as great as one might expect. 
The 2400 modems use adaptive 
equalizers that “learn” telephone 
channel characteristics, compensat- 
ing for call-to-call variations. An 
adaptive equalizer is a little like an 
auto-focusing camera device that 
also balances the color spectrum and 
corrects lens imperfections. Because 
a sharply focused receiver signal is 
more noise tolerant, the 2400 receiver 
can achieve 80—90 percent of its po- 
tential noise immunity on every call. 
Most 212 designs use a compromise 
equalizer (“one size fits all’’) ap- 
proach that sacrifices performance 
for design simplicity. This difference 
significantly narrows the perfor- 
mance gap between the two modems. 

But, more to the point, how well 
the 2400 modem works depends on 
its performance potential compared 
to the performance limits imposed by 
the U.S. telephone network. After 
reading a recent survey of signal lev- 
els, noise, and distortions on the US. 
network, one can conclude that well- 
designed 2400 modems will perform 
successfully on a very high percent- 
age of such connections. Indeed, this 
is borne out by units already in the 
field: a limited test using a U.S. Ro- 
botics Courier 2400 modem on long 
distance connections yielded 95 per- 
cent successful calls. 


Higher Speeds 

Doubling speed from 2400 to 4800 is 
not as straightforward as going from 
1200 to 2400 because 2400 bit /sec is 
the maximum practical speed for 
FDM dial-up modems (like the Couri- 


er 2400). There are two barriers. 
First, network changes will make ex- 
tending the signal alphabet beyond 16 
states highly questionable. Second, 
the remaining option (to use more of 
the available signal bandwidth) chews 
up more bandwidth than is available! 
At 4800 and above, the Answer and 
Originate bands overlap, and design 
complexity escalates dramatically. 

It is possible to mix Transmit and 
Receive signals in the same frequency 
band. Each end must ignore its own 
transmitter and pick up the remote 
transmitter. This is called echo can- 
cellation. Echo cancellation and adap- 
tive equalization (mentioned above) 
are similar in that they both “learn” 
line conditions and adaptively com- 
pensate. But echo cancellation re- 
quires more computations with about 
twice as many bits of arithmetic. Sev- 
eral European modems successfully 
use echo cancellation, but they are 
fairly expensive compared to 2400 
bit /sec modems, 

CCITT recommendation V.32 de- 
fines a new dial-up 9600 bit/sec mo- 
dem that includes a 4800 bit/sec 
mode. The Originate and Answer 
bands completely overlap, and each 
occupies 90 percent of the available 
bandwidth. Originally, the modem 
was conceived for local access to digi- 
tal data networks. However, added 
features now allow long haul opera- 
tion on international circuits and in 
large countries like the US. 

Recommendation V.32 is very new 
and subject to change as the first mod- 
els are introduced. Measured by com- 
putations per second and bits of reso- 
lution, these modems are roughly 64 
times more complex than 2400 bit /sec 
modems. For this reason, it will be 
quite some time before V.32 modems 
can compete in the high-volume mo- 
dem market. 



















Notes 

' The discussion here concerns dial- 
up, full duplex modems in the 103 
and 212 class. Leased-line modems 
typically operate 4,800-14,400 bit / 
Sec. 
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his article describes a program 
7] allows easy modification 

of the parameters of a pro- 
grammable USART. The program, 
written in C, is readily adapted to a 
number of different UART chips. 
This particular program is for the 
Signetics/National Semiconductor 
2651 USART. 

Recently, I constructed a serial 
port board to let me use a modem on 
my microcomputer. After looking at 
some of the designs in Interfacing to 
S-100IEEE 696 Microcomputers! 
and checking the local availability of 
UART chips, I decided to implement 
the design on page 183 of the book, 


to systems that have an autoexecute 
on boot: anyone can boot up in what- 
ever mode is required without modi- 
fying the BIOS. 

An examination of the listing re- 
veals four command line switches. 
These allow the user to change the 
baud rate (—b), number of stop bits 
(-s), parity (-p), and word length 
(—1). All invalid switches are ignored, 
as are values out of range for any of 
the parameters. After all command 
line switches have been effected, the 
program shows the values of all the 
port parameters. Trying to execute 
the program with no switches on the 
command line produces a “Usage” 





A tasty little morsel from Wahroonga. 





which makes use of the 2651 USART. 

This USART is fully programma- 
ble with respect to baud rate, stop 
bits, parity, word length, and so on, 
and changes to my BIOS would pro- 
gram the USART at boot time. How- 
ever, I needed more flexibility. When 
transferring files to an adjacent ma- 
chine, I would have appreciated a 
simple way to change the USART pa- 
rameters, namely, the baud rate, re- 
setting it for higher rates. 


SETP.C 

The Listing on page 62 shows the re- 
sults of my attempt at solving this 
problem. The program is called with 
a number of command line switches, 
which can be used to modify the port 
parameters. I have designed the pro- 
gram to run entirely from the com- 
mand line to make it easily adaptable 


es eS ee 


Don Gay, 136 Fox Valley Road, Wah- 
roonga, 2076, N.S.W., Australia. 


description, followed by the current 
port parameters. Here is an example 
of how the program typically is 
called: 


A> setp —b1200 -s1 —pn -18 


This would configure the USART to 
transmit/receive at 1200 baud, | stop 
bit, no parity, and a character length 
of 8 bits. 


USART Programming Details 
A 2651 USART uses four consecutive 
I/O ports: 
(1) Transmit /Receive holding register 
(2) Status register 
(3) Mode register 1 and 2 
(4) Command register 
The USART parameters are con- 
trolled by writing to the mode regis- 
ters. By reading the values in the 
mode registers, you can determine 
the current parameters of the 
USART. 

There are actually two mode regis- 
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ters at the same I/O address, each 
accessed by a consecutive read or 
write. Read from the mode register 
once and you will get the contents of 
one of the mode registers; read from 
it again and you will get the contents 
of the other mode register. A similar 
situation exists for writing. After a 
reset, the first read/write accesses 
the first mode register. As long as 
reading and writing are done in pairs, 
you will always know with which reg- 
ister you are dealing. 

The command register controls the 
level of *RTS and *DTR lines, as well 
as enabling and disabling transmit/ 
receive. Because the values written to 
the command register need not 
change once the port has been initial- 
ized, the program does not allow al- 
teration of the command register 
from the command line switches. 
These switches alter only the con- 
tents of the mode registers. 

As is usually the case with pro- 
grammable peripheral interfaces, 
each bit has a special significance in 
the controlling mode registers. Fig- 
ures 1 and 2 (at right) show the im- 
portance of each bit in the mode reg- 
isters of the 2651. 
The USART is configured in this 
program in asynchronous mode with 
internal receive and transmit clocks. 
This is probably the most common 
mode used with ordinary devices, 
such as modems and terminals, so 
these characteristics are “hard cod- 
ed” in the program. Refer to the 2651 
documentation? to find out other 
ways to operate the port. 
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C UART Controller Listing  cextvegins on page 60) 


A” OOOO 


/% x/ 
/*% Serial Port Configuration Program (2651 PCI) x/ 
/% x/ 
/*¥ Source filename : SETP.C x/ 
/% Program Language : C/8@ 3.9 (Software Toolworks) x/ 
/% Program Author > Don Gay x/ 
/% Last Revision =: June ili, 1994 x/ 
/*% x/ 
EMRE ERERAE ESSERE EAE EAE EERE AER EEE AREER REESE EERE 
#include printf.h /*% Header for formatted output */ 
#define REV_DATE "11/86/84" 
#define PORT_BASE G /% 2651 PCI base address x/ 
#define MODE REG PORT_BASE+2 /% Mode register x/ 
#define CMND REG PORT_BASE+3 /* Command register x/ 
#define DISABLE Gx 32 /* Disable UART recv/xmit %/ 
/* Force &£DTR and &RTS low */ 
#define ENABLE Ox 37 /* Enable UART recv/xmit x/ 


/* Store legal values for all paramters */ 


Char *baudr[] 


qe Ce a oe ig”; a8 134.35", ue i156" ; "369g" . "59a", 
"1299", "1865", "2495", "2496", "3498", "4899", 
"72GB" ,"969S","192GG"3, 


Ssbitsl ] = CPt ay key eS 
EparitC] = Ce sO NT, ees 
*Xword1[] = ay oO ae ge ae 


int baud_rate, stop _bits, Parity, word_length; 


main(argc,argv) 
int argc; 
Char argv]; 


€ 
printf("\nSerial port configuration program as of Z%s\n",REV_DATE); 
get_prm(); /* get current port parameters */ 
if (argc>1) /* process the command line x/ 
while (argc-- > 1) 
process(argv(fargc]); 
else /* Give some help */ 
show_usage(); 
show_prm(); /* Display parameters %/ 
set _prm(); /*% Re-program PCI x/ 
> 
process (arg) /% Try to match the command line %/ 
char targ; /* argument with a valid switch %*/ 
{ /*% If valid, set up new value x/ 
int n; 
if (arg == *-’) ¢€ 


switch (toupper (*++arg)) ¢ 

case °B’: n=match(++arg,baudr,16); 
if (n>=@) baud_rate=n; 
else error ("baud rate value",argq); 
break; 

case 7S’: n=match (++arg,sbits,4); 
if (n>=G) stop_bits=n; 
else errori"stop bits value”",arg); 
break; 


case °P’: n=match({+targ,parit,4); (Continued on page 64) 


62 Dr. Dobb’s Journal, June 1985 


Add EDITING 
to your 


Software 
with 
CSE Run-Time’ 


Your program can include all or a portion 
of the C Screen Editor (CSE). 


CSE includes all of the basics of full 
screen editing plus source in C for only 
$75. For only $100 more get CSE Run- 
Time to cover the first 50 copies that you 
distribute. 

Use capabilities like Full cursor control, 
block move, insert, search/replace or 
others. Portability is high for OSes, ter- 
minals, and source code. 

Call for the ‘‘CSE Technical Description 
and for licensing terms and restrictions. 


Full Refund if > ° 

not satisfied in c>olution 
first 30 days. < ystems 
Cail 800-821-2492 






















335-D Washington Street 
Norwell, MA 02061 


617-659-1571 
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anipulati 
and m UNIX-li 
DIFF and CMP 


XREF — cross ref 
C Flow Chart— 


programs. 


C Helper is written in portable C and includes both full 


Solution 
ystems” 


335,Washington Street 


Norwell, MA 02061 
617-659-1571 


source code and executable files 
for $135 for MS-DOS, IBM AT 
CPM-80 or CPM-86. Use 

VISA, Master Card or COD. < 


Call: 800-821-2492 
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nction and line. 
all each other. 
C Beautifier — make source more regular and readable. 
GREP - search for sophisticated patterns in text. 


There are several other utilities that help with converting 
from one.C compiler to another and with printing 





helps Develop \ 
and Test Lattice C Programs 


Reliably Cuts Both — 
= Compile times (by 15% to 55%) 
@ Testing time (by 12% to 37%) 


FASTER C keeps the Lattice C library and any other functions you 
choose in memory. It manages a jump table to replace the LINKER 
and immediately execute your functions. You can also CALL 
active functions interactively to speed your program debugging. 
It includes many options for configuration and control. 


AVAILABLE FOR PC-DOS, IBM-AT, 
AND ANY 256K MSDOS SYSTEM. 


Solution 
ystems” 


335-D. Washington St., Norwell, Mass. 02061 
617-659-1571 


ONLY $95. 
CALL TOLL FREE 
800-821-2492 


for “Technical Description” or to order. 
FASTER C is a trademark of Solution Systems 
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PROLOG-86 — 


Become Familiar in One Evening 


Thorough tutorials are designed to help learn the PROLOG 
‘language quickly. The interactive PROLOG-86 Interpreter gives 
immediate feedback. In a few hours you will begin to feel comfort- 
able with it. In a few days you are likely to know enough to modify 
some of the more sophisticated sample programs. 


Sample Programs are Included like: 


@ an EXPERT SYSTEM 


HM a NATURAL LANGUAGE INTERFACE 
(it generates a dBASE II “DISPLAY” command) 


H a GAME (it takes less than 1 page of PROLOG-86) 
PROTOTYPE Ideas and Applications QUICKLY 


1 or 2 pages of PROLOG is often equivalent to 10 or 15 pages in 
“C” or PASCAL. It is a different way of thinking. 


Describe the FACTS and RULES without concern for what the 
computer will have to do. Maybe you will rewrite in another 
programming language when you are done. 


Programming Experience is not required but a logical mind is. 
PROLOG-86 supports the de facto STANDARD established in 
“Programming in Prolog.” 


AVAILABILITY: pPROLOG-86 runs on MSDOS, PCDOS, 


IBM AT or CPM-86 machines. We provide most formats. The price 


of PROLOG-86 is only $125. > ‘ 
Solution 
Systems” 


335-D Washington Street 
Norwell, MA 02061 


617-659-1571 


























Full Refund if not 
satisfied during 
first 30 days. 

800-821-2492 
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C UAR T Ci on fr oller Lis ting (Listing continued, text begins on page 60) 


if (n>=G) parity=n; 
else error ("parity value",arg); 
break; 

case ’L’: n=match (++arg,wordl,4); 
if (n>=G) word length=n; 
else error ("word length value",arg); 
break; 

default : error ("switch",arg); break; 


+ 
} 
else 
error ("switch",arg)s; 
} 
match (value, table, size) /* Check if switch value is valid x/ 
char tvalue, /* Command line value */ 
*%table(i; /* Table of valid arguments x/ 
int size; /* No. of entries in table «/ 
{ 
int ndx; 
ndx=@; 
while ((ndx<size) && (strcmp (value,tablefndx]) ‘= @)) 
ndx++3 
return( ndx<size ? ndx =: -i )3;/%* Return -1 if not found */ 
> 
get _prm() /% Read mode ports to determine x*/ 
£ /* current port parameters x/ 
int model, mode2; 
model = input (MODE_REG);/* get mode register 1 x/ 
mode2 = input (MODE_REG);/%* get mode register 2 x/ 
baud rate = getbits(mode2,3,4)3; /* isolate bit fields &/ 
stop _ bits = getbits(model,7,2); 
word length = getbits(model,3,2); 
parity = getbits(modei,5,2); 
3 
getbits(x,p,n) /* get n bits from position p «/ 
unsigned x, p, n; /* Ref: K&R pg 45 x/ 
€ 
return((x >> (pti-n)) & *(*g << m3 
> 
set _prm() /* Re-program PCI with new parmameters */ 
{ 
int modei1, mode2; 
model = @x@2 } /* set asynch. 16x mode x*/ 
( stop_bits << 6) | /* merge parameters x/ 
{ (parity << 4) & G3G ) !} 
€ (word_length << 2) & Gx@c ); 
mode2 = Gx3G } /® set internal clock x/ 
baud rate; /*% merge baud rate x/ 
output (CMND_REG, DISABLE) ; /% disable recv/xmit x/ 
output (MODE_ REG, mode1); /* send new parameters *x*/ 
output (MODE _ REG, mode) ; 
output (CMND_REG, ENABLE) ; /*® now enable PCI x/ 
> 
64 
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show_parm() 


/* Display current parameters %/ 


€ 
printf ("\nBaudrate : %s\n",baudr Cbaud_rate]) ; 
printf( "Stopbits : Zs \n", sbits(stop_bits)); 
printf( "Parity ees 
switch(parity) ¢ 
case @: printf ("None\n"); break; 
case i: printf ("Odd\n");5 break; 
case 2: printf("None\n"); break; 
case 3: printf("Even\n"); break; 
> 
printf( "Wordlength : Zs\n",wordlCword_length]); 
> 
show_usage () 
{ 
printf ("\nUsage: SETPORT [-BbIC-SsJC-—PpIC-LiI\nAN\n") 5 
printf ¢" where -Bb sets Baudrate, b = 5@..19296\n");5 
printf (¢" -Ss sets Stopbits, s = @, 1, 1.5, 2\n"); 
printf (" -Pp sets Parity, p = OQ, E, N\n");5 
printf ¢" -L1 sets wordLength, 1 = 5, 6, 7, 8\n"); 
> 
error (type, value) /*% Warn command line argument error %/ 
char type, %value; 
2 
printf("Illegal %s ignored : %s\n",type, value) ; 
} 


input (port) 
int ports 


{ 

#asm 
pop b 
pop h 
push h 
push b 
MOV a,l 
sta inadr 
in a 

inadr equ $-1i 
mov l,a 
mvi h,@ 

#endasm 

; 

output (port, byte) 

int port, byte; 

{ 

#asm 
pop b 
pop d 
pop h 
push h 
push d 
push b 
mov a,l 
sta outadr 
mov a,e 
out & 

outadr equ $-i 
MOV l,a 
mvi h,@ 

#endasm 

} 
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/* Return input from 1/0 port x/ 


;Return address 
;Port number 


;Restore stack 


;Get port into A 

sModify next instruction—————— + 
s;Dummy input instruction : 
sActual port gets poked here <+ 


/*% Output to I/O port */ 


;Return address 
;Byte to output 
;Port number 
;Restore stack 


;Get port into A 

sModify next instruction———————— + 
s;Get byte to output : 
;Dummy output instruction : 
sActual port gets poked here <-—+ 


End Listing 
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Christensen Protocols in C 


by Donald Krantz 
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bout two years ago, when I ac- 
A quired my first 8-inch ma- 

chine, I needed a file transfer 
program to load data between the 8- 
inch machine and my 54-inch ma- 
chines. I started looking around for a 
version of MODEM7 on 8-inch disk. 

Before I found one, I ordered a 
couple of 8088 co-processors for my 
systems. As this development prom- 
ised to complicate my file transfer 
problems considerably, I decided to 
write a file transfer utility in C so I 
would have a single, portable pro- 
gram for all my systems. 

I started writing in SuperSoft C, 
because that was what I had back 
then, and several weeks later had a 
version working on my Zorba CP/M 
machine. I thought I’d be in Fat City 
when the co-processors came. 


only to port the source for the file 
transfer program. 

I put the 8088s aside and continued 
with my life. As time passed, I used 
the file transfer program, which by 
now had the name XFR, and gradual- 
ly started adding bells and whistles. 

Some time later, I had occasion to 
write XMODEM in C for my portable 
BBS series. I thought I’d just take the 
old XFR program and do a little sur- 
gery; I figured the whole thing ought 
to take no longer than a couple of 
hours. 

By this time, I had switched all of 
my new program development to Eco 
C, which is closer to the Unix Version 
7 standard than was SuperSoft. As I 
started work on XMODEM, I found 
more and more places where the ba- 
sic structure of XFR made porting the 





The most-often-ported of telecommunications pro- 
grams meets the most-often-called-portable of 
languages. 





Well, the co-processors arrived, I 
wired them in, and I started planning 
the big port. I was unpleasantly sur- 
prised to find that the co-processors 
had no assembler or documentation 
and wouldn’t read my 5%-inch IBM 
disks. As far as I could tell, I had no 
means of getting any new programs 
or files into the system short of writ- 
ing a program with DEBUG. This was 
unacceptable, especially since I had 
promised myself that I would never 
learn nor use 8088 assembly lan- 
guage and had given myself a waiver 





Donald Krantz, 2845 42nd Ave. 
South, Minneapolis, MN 55406. 


thing less and less attractive. Still, I 
took out the digital chain saw and 
started to work on XFR. 

Some of the items I took out in- 
clude an assembly language CRC 
generator, interrupt-driven receive 
FIFO, XDIR-style directory, wildcard 
filename expansion for the batch 
mode, file eraser, disk drive logger, 
half duplex and host terminal mode, 
and a data line monitor for watching 
control characters. What’s left is a 
basic Christensen protocol engine 
with a minimal terminal program. 
The advantage is that the file transfer 
primitives are now pretty much inde- 
pendent of the operating system and 
C compiler—to the extent allowed by 
the protocol—and can be dropped 
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into other environments easily. 

The basic features supported by 
XFR are dumb terminal emulation 
with host system terminal attributes 
and checksum or CRC file transfer in 
single or batch file mode. [ll run 
through the Listing (page 71) and 
discuss features and portability con- 
siderations on a function-by-function 
basis. First, let me mention up front 
that my goal was operation at 19.2K- 
baud, so I have violated some soft- 
ware development standards in the 
interest of speed, specifically by using 
C’s interfunction GOTO to reduce 
conditionals in loops. Also, Z80 im- 
plementations of C tend to access glo- 
bals faster than automatics, so glo- 
bals perhaps are overused. 


Function main( ) 

This is basically a menu processor. 
Most of the functions do returns rath- 
er than using the longjmp(_) to resume 
the menu loop. It’s a trivial job to add 
features to the menu if you plan on 
actually using this as a terminal pro- 
gram and need more functions. 


Function term( ) 

This is a simple dumb terminal. For 
you MSDOS or Unix folks who 
haven’t memorized the CP/M BDOS 
function calls, the function _bdos( 6, 
OxFF ) is a specialized version of get- 
char( ) that immediately returns a 
NULL if no character is waiting. I’ve 
seen a similar function, sometimes 
called inkey( ) or keyscan( ), in other 
C libraries. The presence or absence 
of term( ) doesn’t affect the file 
transfers at all, but because you usu- 
ally should be able to communicate 
with the remote system to set up the 
file transfer, it’s nice to have some 
sort of dumb terminal. 


Function transmit( ) 

This function has the only cheezy 
user interface in the program. It se- 
lects batch file transfer, as opposed to 
single file transfer, by looking for a 
comma at the end of the input line 
when asking for the transmit file- 
name; should it find a comma, it will 
select batch mode and ask for the 
next name. Most versions of MO- 
DEM7 either have a command option 
switch for this purpose or recognize 
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that you want batch mode if an am- 
biguous filename is specified. The 
original XFR used the latter method. 
Unfortunately, there is no portable 
way to expand filenames and get a 
list of matching files. 

If you have a system that will ex- 
pand wildcards on the command line 
and pass matching names through 
the argc/argv method, you could eas- 
ily convert this program from inter- 
active to command line mode. Other- 
wise, on CP/M systems, ift you have 
access to the BDOS calls, you can use 
the function unparse( ) to convert 


CP/M fcb names to a normal format 
and pass them one at a time to 
trans( ). The one advantage the cur- 
rent method has over wildcard expan- 
sion is that it allows sending files with 
dissimilar names. However, if you do 
use the CP/M “search for file” and 
“search for next’’ calls, be sure to col- 
lect all the names before you allow 
the program to proceed. 


Function trans( ) 

This is the file transmission primitive 
executive (if that’s not a contradic- 
tion in terms). A filename is passed 
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in, in a format compatible with the 
fopen( ) function. If batch mode is se- 
lected, the name is sent to the remote 
system, followed by the file itself. 
This function, and the supporting 
functions it uses, are all pretty much 
system independent within the con- 


a 4 1 1 1 
6543 2 a 


I 


Controls whether XOR takes place 


CRC accumulator, 16 bits | 


Figure 1. 


fines of the protocol. 


Function txrec( ) 

This function sends a single record to 
the remote system and does any re- 
transmission necessary due to errors. 
The record size is fixed at 128 bytes 
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A 1 shifted out oF the left end of the CRC accumulator causes 
the CRC polynomial to be exclusive-ORed with the post-shift 
CRC accumulator. The CRC polynomial appears to have no 
relation to the polynomial equation in the text until you realize 
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packet. In checksum, byte 133 is not sent, and byte 132 is the 


checksum. 





handles errors 






by the macro RECSIZE. If you don’t 
need compatibility with the rest of 
the world, you could try optimizing 
performance by increasing the size of 
the record, if you have a good com- 
munication link, or decreasing the 
size of the record if you use noisy 


Programmers writing MODEM7- 
compatible programs traditionally 
learn about the protocol by getting as 
many copies of the source to MO- 
DEM7 as possible and tracing pro- 
gram flow. In violation of that tradi- 
tion, I have written down my 
interpretation in English. Glock’s 
Fourth Law states that this must 
have been done before, but the corol- 
lary to that law states that you can’t 
find out where, even if it has. — 

Ward Christensen (according to 
legend) developed the protocol, 
which was extended by several other 
people who ought to receive credit 
but whose names I don’t have. Ward 
has been around so long that I was 
surprised, and perhaps a little indig- 
nant, to find that he is still alive. He is 
responsible for some of the more clev- 
er public domain programs, so I’m 
willing to bet that he didn’t do some 
of the peculiar things in the Christen- 
sen protocol—such as the filename 
transfer. 

There are two levels to the Chris- 
tensen (also called XMODEM) proto- 
col: file-at-a-time and batch transfer. 
The batch transfer mode provides for 
the unattended transmission of mul- 
tiple files, including the filename. 

The protocol uses two different er- 
ror detection schemes: checksum and 
CRC (Cyclic Redundancy Code). 
Older versions of MODEM7 use the 
checksum method, while the newer 
versions use the more accurate CRC 
method. Most programs that can do 
CRC will also do checksum. 

Only the data bytes in a packet are 
included in the calculation of the 
error detection code. The protocol 
in headers and 
handshakes by ignoring garbage 
characters or assuming the worst. 

Checksums are calculated by add- 
ing all data bytes mod 256, with any 
carry ignored. 

The CRC polynomial used is the 
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lines. The macro RECSIZE fixes all 
the parameters necessary for change 
of record size. 


Function txname( ) 
This function sends a filename to the 
remote system when batch mode is 


CCITT X'© + X44 XX 4 1. im 
told that there are people who know 
what that means (I’m taking the 
word of an old XMODEM listing). In 
simple language, the procedure for 
generating the CRC is this: A byte to 
be added to the CRC is fed into the 
generator, one bit at a time, high bit 
first. The bit is shifted into a 16-bit 
CRC accumulator low end. If the 
high bit shifted out of the CRC accu- 
mulator is a 1, the CRC accumulator 
is exclusive-ORed with 0x1021. The 
process repeats for all eight bits of the 
input character. See Figure | (page 
68). 

In the case of the Christensen pro- 
tocol, after all the data bytes in a giv- 
en packet are sent through the CRC 
generator, two zero bytes are sent 
through at the end. I’m guessing that 
these bytes take the place of the CRC 
bytes in the packet, although I don’t 
know why this is needed. I do know 
that it doesn’t come out right unless 
you do this, and for an empirical kind 
of guy like myself that’s plenty good 
enough. 

At the single file level of the proto- 
col, both systems are told to begin, 
and the transmitter waits for the re- 
ceiver to send a sync byte. The initial 
sync byte tells the transmitting sys- 
tem whether CRC or checksum will 
be used. If checksum, the sync byte is 
a NAK. If CRC, the sync byte is a °C.’ 
If the receiver is thinking CRC and 
the transmitter isn’t capable of it, 
both systems hang until they time 
out. Some programs send five or six 
‘C’ sync bytes and, if not answered, 
then send NAKs in case the transmit- 
ter is an old version. 

In CRC mode, once the systems are 
in sync, the ‘C’ is dropped in favor of 
ACK/NAK handshaking for subse- 
quent records. 

Once in sync, the transmitter sends 
a packet consisting of an SOH char- 
acter, the record number mod 256, 
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selected. The protocol calls for a 
fixed 11-character field in CP/M fcb 
format. This part of the protocol has 
a slightly different flavor to it than 
the rest, so I suspect that somebody 
other than Ward Christensen did it. 
If you’re not interested in compatibil- 


the one’s complement of the record 
number, a 128-byte data block, and 
the error detection byte(s). See Fig- 
ure 2 (page 68). 

The receiver must accept the entire 
packet at once. Most versions of MO- 
DEM7 wait for the SOH, so a missed 
SOH is an error from which it is diffi- 
cult to recover. After reception, con- 
ditions that will cause record rejec- 
tion are: the record number doesn’t 
match the one’s complement of the 
record number; the error detection 
number doesn’t match; SOH is not in- 
tact: and the record number either is 
not the record number expected or is 
one less than the record number ex- 
pected (indicating a previous ACK 
was trashed). If the record is reject- 
ed, the receiver sends a NAK to the 
transmitter, which retransmits the 
record. If the record is accepted, the 
receiver sends ACKs at about one- 
second intervals until the next SOH. 

This process repeats until all re- 
cords are transmitted. At the end of 
file, the transmitter sends EOT at 
one-second intervals until the receiv- 
er ACKs the EOT. 

Record numbers are “‘natural”’ 
numbers; that is, the first record is 
numbered 1, as opposed to the com- 
puter natural 0. 

Batch level of the protocol includes 
a filename header in front of the file. 
Filenames always use checksum er- 
ror detection, even if CRC mode Is se- 
lected for the rest of the file. The file- 
name is sent as it would appear in a 
CP/M file control block (fcb), a fixed 
block, 11 characters long, with 


TEST.DOC becomes: 
VERY.LONG.NAM becomes: 


NAME becomes: 


ity with MODEM7, the size of the 
name is fixed by the macro NAME- 
SIZE. You’re safe up to about 30 
characters or so before you have to 
start hunting for other items affected 
by the name size that NAMESIZE 
doesn’t control. 


blanks expanding the dot should the 
filename be less than 11 characters. 
It is important in CP/M systems to 
make sure that any high bits are 
stripped from the filename. See Fig- 
ure 3 (page 69). 

When preparing to receive a name, 
the receiver sends NAKs at about 
one-second intervals until the trans- 
mitter responds with an ACK fol- 
lowed by the first character of the fi- 
lename. the receiver then 
handshakes with ACKs until the 
transmitter sends EOF. This may 
mean that more than 11 characters 


- are received (because of line noise). 


When the receiver gets the EOF, it 
responds with the checksum of the 
name, including the EOF byte. If the 
checksum matches, the transmitter 
sends an ACK, and the single file pro- 
cess takes over. If the checksum 
doesn’t match, the transmitter sends 
a NAK, and the process repeats. 

If the transmitter sends an EOT in 
place of any name character, it 
causes batch transfer mode to termi- 
nate. This is the normal end to a 
batch transfer. 

Both the transmitter and the receiv- 
er should be able to recognize CAN 
(Cancel) in place of ACK, NAK, EOT, 
SOH, or EOF. In practice, timeouts 
will replace some tests for CAN. 

All transmit and receive loops 
should have timeouts and retries built 
into them to avoid hanging if the two 
systems get out of sync. 

Standard UART setting for the 
Christensen protocol is eight bits, no 
parity, one stop bit. 
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Figure 3. 


CP/M filename expansion 
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The Best Source 
Debugger for C 













Interactive testing: enter any C 
expression, statement, or function call, 
and it is immediately executed and the 
result displayed. Direct execution 
allows fast and thorough testing, 
makes learning C a snap. 


Run-time checking: execution stops 
upon exception, and source code dis- 
played. Exceptions include array refer- 
ence bounds, stack overflow arithmetic 
or floating point error, etc. Pointers are 
checked for null or out of range values. 


Breakpoints: any number of break- 
points can be set anywhere in your 
program; breakpoints are set with screen 
editor, not by line numbers. Breakpoints 
may be conditional. Single-step by 
statement. Interrupt execution from 
keyboard. Breakpoint, exception, or 
interruption is always shown with source 
code. Examine and modify data, look 
at stack history. Even change your pro- 
gram and then resume execution! 
Lint-like Compile-time checking: 
argument number and sizes are checked 
for consistency. Never mismatch source 
and object code. 


The best feature of all: the fastest C 
interpreter is right there when you’re 
debugging. Make changes in seconds 
with the integrated screen editor. Test 
the changes immediately, running your 
program at compiled speed. Save source 
code for your favorite compiler, or make 
stand-alone executable programs. Noth- 
ing else is needed. Instant-C is the 
fastest way to get working, fully 
debugged C programs available 
today. 
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Function receive( ) 

This is the file reception primitive ex- 
ecutive. All it really does is figure out 
if you want batch mode or single file 
mode. It’s not possible to tell what the 
other system has selected just by lis- 
tening to the line. If an asterisk is en- 
tered in the receive filename specifi- 
cation, batch mode is selected while 
preserving any drivespec. Those with 
non-CP/M systems could remove the 
drivespec material, but this probably 
won't be necessary. It’s triggered by a 
colon in the second character position 
of the filespec. 

Because the Christensen protocol is 
receiver driven, you have to have 
made a choice whether to use check- 
sum or CRC error detection before 
you initiate the receive mode. Some 
versions of MODEM7 will hunt back 
and forth between CRC and checksum 
mode to match what the other system 
uses, but this program doesn’t. 


Function rxbatch( ) 

This takes over as receive executive if 
batch mode is selected. It receives a 
filename from the remote system and 
converts it from the fcb format used 
for transmission back to a format 
suitable for use with C functions. The 
name is then passed to the file receive 
function rxfile( ) to pick up the body 
of the file. 


Function rxname{ ) 
This is the companion to txname( ). 
Enough said. 


Function rxfile( ) 

This handles reception of an entire 
file. This function is the time-critical 
part of the program, which is why I 
didn’t break it into smaller modules. 
It doesn’t matter if the program is 
slow when transmitting, but when re- 
ceiving you have to catch all of the 
characters sent from the other end as 
they come in. I put off the computa- 
tion of checksum or CRC to the end 
of the record for this reason, instead 
of building it into the receive charac- 
ter function where it probably be- 
longs. 

It’s also important not to output 
messages to the display when a packet 
transfer is in progress. One of the ver- 
sions of MODEM7.11 that is floating 


around can’t run above 1200 baud in 
receive mode because it makes a mes- 
sage output call immediately after re- 
ceiving the packet header and so 
misses a couple of characters. 


Function make( ) 

This opens a file to receive to. The 
original version of XFR made a back- 
up file if a file would be overwritten, 
but file renaming isn’t portable in C 
(the current version will happily de- 
stroy an old file, even if reception is 
terminated prematurely). I left the 
code in a false conditional assembly 
block because I thought it rather 
clever; it’s a good feature if your C 
library supports renaming. The func- 
tion link takes the arguments ( new- 
name, oldname ). 


Function parse( ) 

This takes a filespec useable by C 
functions and converts it to the CP/M 
fcb format needed by the Christensen 
protocol. On systems with path- 
names, you'll have to hack this func- 
tion into shape to deal with filename 
preambles. It will operate on names 
that don’t follow CP/M conventions 
in most circumstances, although the 
use of periods will give some unusual 
results. If the NAMESIZE macro is 
resized, parse(_ ) will still operate in a 
reasonable manner. 


Function fillbuf( ) 

This loads the transmit file buffer 
with a record. I modularized this sec- 
tion because soon I'll add the ability to 
extract members from a library file. 
On systems capable of file sizes that 
aren't multiples of system records, 
this function pads the last record with 
zeros. Note that this code will never 
be executed on a CP/M system. 


Function unparse( ) 

This undoes what the parse( ) func- 
tion does. Notice that a period always 
is inserted into a filename unless the 
filename is less than (NAMESIZE-3) 
characters long. 


Function updcre( ) 

This adds a character to the CRC or 
checksum accumulator. This uses the 
CCITT CRC polynomial, but charac- 
ters are fed into the generator high 
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bit first. I’m not certain, but I think 
that makes it incompatible with com- 
munications chips that do a hardware 
CRC, in case you have thoughts in 
that direction. At any rate, look into 
it before you spend a lot of time on it. 


Function abort( ) 

This scans the console for an opera- 
tor-requested abort. As far as I know, 
this function is called inside any loop 
where the system can hang (but I 
never guarantee anything about a 
program). The BDOS keyboard scan 
is the same as in term( ). 


Function error( ) 

This is called when fatal transmission 
or reception errors occur. It ties up 
loose ends then jumps back to the 
menu. 


Functions wait( ), swait( ), and 
waitcan( ) 

These do different delays while wait- 
ing for characters. You could com- 


bine them all into one function if 
you’re willing to pay the overhead for 
more conditionals. At high baud 
rates, file reception timing is pretty 
critical, but for 1200 baud or so there 
won’t be any problems. 


Remaining Functions 

In CP/M systems, all of the above 
functions should work as is. The rest 
of the functions are all machine de- 
pendent—or potentially so. 

The init( ) and quit( ) functions 
are called at the beginning and end of 
the program. I had code to set up and 
remove an interrupt-driven FIFO in 
these functions; UART initialization 
or I/O channel acquisition would 
probably go here as well. 

The I/O primitives are set up for 
an I/O-mapped Intel 8351A UART. 
These functions are the ones most 
likely to require customization to 
make the program work. 

How does the whole thing per- 
form? On a Z80 running at 3.58 


MHz, the program will easily do 
transfers in checksum mode at 19.2K 
baud. I’m reasonably sure it will do 
the same in CRC mode, but I haven’t 
the resources to test CRC at that 
speed. If anyone does do a bench- 
mark, I’m interested in the result. 

As far as error handling, the pro- 
gram is not ready for an end user, but 
a reasonable person would have to 
work at it to blow the thing up. Con- 
sider this a starting point, and if any- 
one gets it up on 8-inch MSDOS for 
the Bigboard and Co-Power 88, let 
me know. 

Source is available on TCOG BBS 
(612) 724-7779 300/1200 baud. 


DD} 


Reader Ballot 
Vote for your favorite feature/article. 
Circle Reader Service No. 196. 
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XFR 


By Donald G. Krantz 3/84 


(C) Copyright 


1984 Donald G. Krantz 


All Rights Reserved 


XFR is a packet protocol file transferer similar to modem7. It is 
designed for 19.eK baud transfers "nose-to-nose" between computers 


and works very well 
with most versions of Modem7. 


in modem use at 





low speeds. XFR is compatible 


eon ee ee ee ee ee er */ 
*include "stdio.h" /* ECO C */ 

[ann nnn nn err rrr rn 
ASCII and XMODEM control characters 

" maleccmes ampere ees ules ts wine eisai hoo 5 eg ct a se i ca as ey a a meee em el ea as a */ 
#define SOH ! /* start of header */ 
#define EOQT 4 7* end of transmission % / 
#define ACK 6 /* true acknowledge */ 
#define NAK 0x15 /* false acknowledge */ 
#define CRC 'C' /* request CRC mode %/ 
#define CAN 0x18 /* cancel transmission * / 
#define EoF 26 /* end of file (used for name) */ 
#tdefine BADNAME 0x75 /* received bad name checksum * / 
#¥define BELL 7 /* console bel! */ 
#define NEWLINE 10 /* linefeed char * / 
#define CR 13 /* carriage return char * / 
#define BS 8 /* backspace character * / 
#define ESCTERM 'E'-'®e@' /* escape from terminal mode */ 
[Wow wan on nw nn er rrr erm 
User accessable system equates 5 
se cn oii mu ei eas cae ain nt NO cae ow i a i ed a ah as nO ODS ee a Se AS AS Se Ss ES Se on Ee oe en ee Se SS SS ee 
#define RETRY 5 /* no. of retrys before abort % / 
tdefine RECSIZE 128 /* transfer record size * / 
#tdefine NAMESIZE 11 /* filename fixed length | */ 
#define TITLE printf "\n\t\t\t XFR - File Transfer Utility”) 
define VERSION printfi"\n\t\t\t ZORBA Version 2.00 as of 3/85") 
define CLS printf( "\033E") /* clear screen * / 


Dr. Dobb’s Journal, June 1985 


(Continued on next page) 


71 


P, r ot OC ols Lis ting (Listing continued, text begins on page 66) 


#define ERROR -1! 


#define MAGIC_NUMBER 10000 7* time constant - machine dep. */ 
#define VOID int /* function type * / 
/* *define LINK / * file rename supported * / 
SPOT gs is pa th a Ri nm tc eit i gb fa Ege Si i aa ct yi eb eh NS a J ua et lsd 
Machine dependant port addresses - ZORBA Version (Intel 8251A) 
a i Ah ran Slr dt ie wcll urge air Dies pe ine: cl Gl i ah Sia leila Bs chs \Ge Gdn tebsow ly ow * / 
#define RXDATA 0x20 /* rec'd data UART port */ 
#define TXDATA 0xe0 /* tx'ed data UART port */ 
#define UARTCMD 0x21 /* Command/Status port %/ 
NE mc a ae Se ft a sin ei mr pe ee eg a lh ci eb ee ie a gd te a See ee 
Global variables 
oe a a ee eee */ 
char *line; /* scratch input line */ 
char *buffer; /* record buffer ' */ 
FILE *fd; /* file POINTER! %/ 
unsigned rec; /* record number */ 
char checksum; 7/* checksum accumulator %/ 
unsigned crcaccum; /* global crc bytes */ 
char ere; /* CRC on/off flag */ 
char batch; /* batch on/off flag * / 
Jmp_env to_menu; /* long jump envelope * / 
Struct: ¢ /* batch list array * / 
char name_partC€ 32 J; 

+ Listt 32-7; 
QAR i fis a ah ce fy Si rly SN op a NS nse sce se ine ries free eh ene Su ence 
Function type declarations 
et error Sa ye tr ig ah yy te Ga Sine St sa ed a! sh ter hs enh atacand */ 
VOID main(), term(), transmit(), trans(), txname(), txrec(); 
VOID receive(), rxname(;. rxfile(), make(), error(), clrerc(); 
VOID upderc(), abort(), sleep{), quit(), initt), tx), rxbatch(); 
char *index(), *parse(), *unps 3e(); 
int fillbuf(), wait(), swait(), waitcan(), rxstat(), rx); 
int txstat(); 
GN i st pa tc Sa i ct ss teh pe Sl Gg se i cn Ss eas cnr tela aii sei 
Executable code follows. 
main() is (of course) the master program |Iso0p. Uses set jmp() 
to un-nest function calls on error exits. 
References globals: crc, tty; 
Modifies globals: crc, tty; 
li it i am ti Sheesh il Wa eG wl neal eget ri a Cn ins a ee taps agen evs ov */ 
VOID main() 
‘ 

char menu; 

menu = FALSE; /* initially expert mode * / 

init(); /* initialize modem and UART % / 

Bic ig | BO 

VERSION; 

printf( "\nType 'M' for MENU display...."); 

setjmp( &to_menu ); /* menu loop %/ 


while( TRUE ) 
4 


printf( "\n\nMode: %5", cre ? "CRC" : "Checksum" ); 
if( menu ) 
t 


printf( "\n\n\tS Send file R Receive file\n" ); 


printf( "\tT FOX term V CRC/Checksum\n" ); 
printf( "\tM toggle menu X Exit\n" ); 
} 


printf( "\n\nCommand: " ); 

ore toupper( getchar() ) ) 

casé *S*: /* send file(s) #*/ 
transmit(); 
break; 

case ‘R's: 7* RX file(s) */ 
receive(); 
break; 

case ‘T's: 7* dumb terminal*/ 
term(); 
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Periscope ... A Direct Hit! 


‘A great debugger ... If you’ve been frustrated by 
programs that don’t behave the same for the debugger 
as when running alone, or that crash altogether, you 
should check out Periscope ...”’ 


PC REPORT, Boston Computer Society 








‘Tt works, and works well!! In the first day of use I 
finished up two weeks of problems!! Really ex- 
cellent!!!?’ 


Peter Loats, Periscope User 


Periscope’s differences hit home! Its 
breakout switch gives you control, even when in- 
terrupts are disabled. Periscope’s unique power 
helps you solve the difficult problems. Debug device- 
drivers, memory-resident, and non-DOS programs. 


Great for straightening out confused C 
pointers! Using its breakpoint power, you can stop 
on reads and writes to ranges of memory. Stop on 
registers, words, and bytes, too. 


It’s tough. Periscope’s 16K RAM board is write-protected. Runaway 
programs can’t touch crucial debugger code! Examine the system, safely, at 
any time: Periscope saves the interrupt vectors and buffers it uses, then 
restores them when done. It uses ROM BIOS calls for functions except file 
access, so DOS can’t clobber itself. 


It gets you moving. It’s commands are similar to Debug’s, so you'll 
master it quickly. On-line help is there when you need it. You can define the 
windows you want; you can design easy-to-read memory displays. Periscope 
supports C, Assembler, BASIC, and Pascal. Comprehensive symbol sup- 
port gives you a roadmap through memory tying back to your source. 


It’s risk-free. Periscope is backed up by a 30-day, money-back guarantee! 
The board is warranted for a year. Technical Support? You get the best 
there is ... direct from Brett Salter, Periscope’s author! 


It requires. An IBM PC, XT, AT, Compaq, or close compatible; PC- 
DOS, 64K RAM; a disk drive and an 80-column monitor. With two 
monitors, Periscope’s screen is displayed on the monitor not in use. With 
one monitor, a keystroke switches screens. 


It’s power you can afford. At $295, you can afford Periscope’s 
professional power. The system includes the memory board, breakout 
switch, debugger software, manual, and quick reference card. 


Order now! Call toll-free (800) 722-7006 to place your order or to get 
more information. MasterCard/VISA accepted. 


Get your programs up and running; 


uP PERIS E! 


Data Base Decisions/14 Bonnie Lane! Atlanta, GA 30328/(404) 256-3860 
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Starting At 


$695.00 i ay 


CO-PROCESSING 


The most cost effective way for Z80 
system owners to obtain 16/32 bit 
processing power and software 
compatibility is via the HSC CO-16 
Attached Resource Processor. 


CO-16 is compatible with any Z80 
system running CPM 2.2 or CPM 3. 
A few examples include: 

e KAYPRO 2/4/10 © TRS 2/3/12/16 
e AMPRO LITTLE BOARD 

e HEATH 89 e SUPERBRAIN 

e XEROX 820 e TELEVIDEO 802/803 
e MORROW e EPSON QX-10 

e LOBO e OSBORNE 1/EXEC 

e CROMEMCO « Plus many more 


CO-16 


Every CO-16 is delivered with 

e 16/32 bit micro processor ® 16 bit 
Operating System © 256 Kilo RAM 

e Z80 interface * 16 bit RAM disk 
driver ¢ CPM80 2.2 RAM disk driver 
e CPM 2.2 or CPM 3 compatibility 

e sources with tools ¢ hardware 
diagrams ¢ board level or case with 
power supply. 


CO-1686 


The only Z80 16 bit co-processor 
includes e INTEL 8086 e 6Mhz no 
wait states ¢ MSDOS 2.11 ¢ IBM 
BIOS emulator « Memory expansion 
to 768K e 8087 math co-processor 

e 3-channel Real Time Clock ¢ Runs 
many IBM PC applications ¢ Shares 
hard disk space with CPM80 e PC 
diskette compatilibility on many 
systems ¢ CPM86 e Concurrent 
CPM is coming. 


CO-1668 


The only Z80 16/32 bit co-processor 
includes © MOTOROLA 68000 
microprocessor ¢ 6 Mhz no wait 
states e CPM68K ® Full ‘‘C’’ com- 
piler with UNIX V7 library and floats 
e Memory expansion to 1.25 million 
bytes e NS16081 math co-processor 
e Real Time Clock ¢ Complete soft- 
ware development environment 

e 100% file compatible with CPM80 
e OS9/68 UNIX look alike coming 

in February. 


Dealer. Distributor and OEM ’s invited 








Hallock Systems Company, Inc. 
267 North Main Street 
Herkimer, N.Y. 13350 
(315) 866-7125 


Circle no. 26 on reader service card. 


Pr Fr ot OC ols Lis ting (Listing continued, text begins on page 66) 


break; 

case 'V'; /* toggle crc */ 
cre = lore, 
break ; 

case 'M': 7/* toggle menu */ 
menu = !menu; 
break ; 

case 'X'; 7/* quit * / 
quit(); 

default: 7* option bad */ 
putchar( BELL ); 


term() is the dumb terminal section. Escape by typing ESCTERM 
character (see ASCII #defines). 
Some machine dependent stuff. 


Oe re ei i Se we eee ie ree wee ww eee enone nomen */ 
VOID term() 
{ 
char ch: /* scratch char * / 
CLS; 
printf( "\n\n" ); 
while( TRUE ) /* the loop. * / 
{ 
if( rxstat() ) /* if char coming in * / 
putchar( rx() );/* display local */ 
if( (ch = _bdos( 6, OxFF )) != NULL ) 
if( ch == ESCTERM ) /* check exit */ 
return; 
else 
teh che )3 /* disp remote */ 
3 
; 
I Sm es he i ci Se ph cts sen enh kk hr pees i a cpl i at ela Wn ss hh eect Me ce hinds 


transmit() is the transmission executive. It requires no input 
parameters. This function takes filename(s) as input from the 
user, one line at a time. A comma at the end of a filename 
Signals the intention to enter anther filename on the next 
line. More than one filename entered sets "batch" mode. 32 
names maximum, for no especially good reason. 


Modifies globals: buffer, batch; 


Sha pe So a Seo i Sy, ls gmc memes eS StS Mw ace esr io ares gr oe Aiecis wd */ 
VOID transmit () 
{ 
int ct = 0; 
int i; 
Pare. Fyn Fs 
while( TRUE ) 
{ 
printf( "Transmit File specification: " ); 
gets( list€ ct ].name_part ); 
if( index( list€ ct J.name_part, ',' ) == NULL ) 
break; 
*index( list€ ct J.name_part, ',' ) = '\O'; 
Ctt++; 
} 
batch = (ct ? TRUE : FALSE); 
fort (eG 1/(€* GE {+e 3 
{ 
while( rxstat() ) 7* gobble garbage * / 
nxt} 
trans( listC i J.name_part ); /* send file */ 
3 
if( batch ) 
{ . 
while( swait() != NAK ) /* await name request */ 
abort(); /* operator abort scan #*/ 
tx( ACK ); 7* handshake NAK */ 
sleep(); /* decent interval */ 
ERC GOT 3 /* end of transmission */ 


(Continued on page 76) 
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A Proffessional Quality Z80/8080/8085 Disassembler 


WHEN YOU NEED SOURCE FOR YOUR CODE 
you need REVAS 3 


NOM 


for Microsoft 
OMlcelamonen the 


source debugger 
for lattice C 


/ Your time and convenience come 

7 first! The MSD C Debugger” is the last, 
/ and perhaps final, word in programming 

- assistance for Lattice C users. C Debugger 
| produces a high level view of C programs 
via function names, line numbers, variable 














REVAS interactively helps you: 




























Analyse your software for modification 





disassemble files as large as 64K 


names and C data types, plus a low-level view 
of machine addresses and instructions for 
testing assembler language functions. 


More features include: 

e All documentation is prepared for 
programmers. 

e Online help screen throughout the 
process. 

¢ Capability to single step 
through your program. 

e Set break points, examine registers and 
variables. 


$165.00 +$3.50 shipping 


ETA 
VISA is 
SaaS 


Assign Real labels in the disassembly 
Insert COMMENTS in the disassembly 
Generate a Cross Reference (XREF) listing 









A 60 page manual shows how the powerful REVAS 
command set gives you instant control over I/O to files, 
printer, or console; how to do a disassembly; and even 
how the disassembler works! You get on line help, your 
choice of assembler mnemonics, control of data 
interpretation, and calculation in any number base! 


REVAS runs in Z80 CPM computers; is available on 
8’’ SSSD (standard), RAINBOW, and other (ask) formats 


To order, call or write: 

MICRO-SOFTWARE DEVELOPERS, INC. 
2141/2 W. Main St. * St. Charles, IL 60174 
312/377-5151 


Lattice C is a trademark of Lattice, Inc. 
Microsoft is a trademark of Microsoft Corp. 


Price: $90.00 (plus applicable tax), Manual only: $15.00 
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REVASCO 
6032 Chariton ve., Los Angeles, CA90056 
Voice: (213)649-3575 Modem: (213)670-9465 
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DATESTAMPER* has the answers 


When did we 
print that letter? 

















PERT eset == fos the mailing 
aoe eee rT list been updated: 
ara eis eS pile eT 

Oita pees Which is the 
latest version? 


Lf 


Ln 9 
pay 






DateStamper™ keeps your CP/M computer up-to-date! 
® avoid erasing the wrong file e keep dated tax records of computer use 
e back-up files by date and time e simplify disk housekeeping chores 










OPERATION: DateStamper extends CP/M 2.2 to automatically record the date and time a file is created, read or 
modified. DateStamper reads the exact time from the real-time clock, if you have one; otherwise, it records the order in 
which you use files. Disks initialized for datestamping are fully compatible with standard CP/M. 

INSTALLATION: Default (relative-clock) mode is automatic. Configurable for any real-time clock, with pre- 
assembled code supplied for popular models. Loads automatically at power-on. UTILITIES: ¢ Enhanced 
SuperDirectory * Powerful, all-function DATSWEEP file-management program with date and time tagging ® Disk- 
initializer ¢ Installation and configuration utilities PERFORMANCE: Automatic. Efficient. Invisible. Compatible. 


Requires CP/M 2.2. Uses less than 1K memory. Real-time clock is optional. 
















When ordering please specify format 


8” SSSD, Kaypro, Osborne Formats .......-... $49 Write or call for further information 
For other formats (sorry, no 96 TPI) add $5. 
Shipping and handling ..........-+eeeeeeeeeees $3 
California residents add 6% sales tax (Plu'Perfect Systems) 
MasterCard and Visa accepted Plu Pe rfect = stems 


Specialized versions of this and other software available for the Kaypro. BOX 1494 © IDYLLWILD, CA 92349 714-659-4432 
CP/M is a registered trademark of Digital Research, Inc. 
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PROGRAMMER’S UTILITIES 


especially for Turbo Pascal on 
IBM PC/XT/AT and compatibles 


MORE POWERFUL THAN UNIX UTILITIES!!! 
Whether you are a 
-- Student -- Hobbyist -- Professional Software Developer -- 
THESE UTILITIES WILL IMPROVE YOUR 
PROGRAMMING PRODUCTIVITY!!! 










These Powerful, Ready-to-Use programs fully support Turbo 
Pascal versions 2.0 and 3.0, and MSDOS 2.X and 3.0. Here's 
what you get: 







Pretty Printer 

Standardize capitalization, indentation, and Spacing of 
source code. Don't waste your own time! Several adjustable 
parameters to suit your tastes (works with any standard 
Pascal source). 


Program Structure Analyzer 

Find subtle problems the compiler doesn’t: uninitialized and 
unused variables, modified value parameters, “sneaky” 
variable modification, redefined standard identifiers. Also 
generates a complete variable cross reference and a pro- 
gram hierarchy diagram. Interactive or write to file (works 
with any standard Pascal source). 


Execution Timer 

Obtain a summary of time spent in each procedure and 
function of your program, accurate to within 200 micro- 
seconds. Also counts number of calls to each subprogram. 
Fully automatic. 


Execution Profiler 

Obtain a graphic profile of where your program spends its 
time. Interactive, easy-to-use. Identify weak code at the in- 
Struction level. (Profiler and Timer for Turbo Pascal Source 
code only.) 


Command Repeater 

Go beyond MSDOS batch files to combine a powerful text 
parser with general-purpose command execution Capability. 
Use to copy, print or delete across subdirectories. “make” 
programs and more. 


Pattern Replacer 

Find and REPLACE versatile regular expression patterns in 
any text file. Supports nesting, alternation, tagged words 
and more. Over a dozen programmer's applications 
included. 


Difference Finder 

Find differences between two text files, and Optionally create 
an EDLIN script which rebuilds one from the other 
Disregard white space, case, arbitrary characters and Pascal 
comments if desired. 


Super Directory 

Replace PCDOS DIR command with extended pattern 
matching, sort capability, hidden file display, date filtering, 
and more. 


File Finder 

Locate files anywhere in the subdirectory tree and access 
them with a single keystroke. Display the subdireciory tree 
graphically. 












































AVAILABLE IN SOURCE 
AND EXECUTABLE FORMAT 


Executable: $55 COMPLETE including tax and shipping. 
Compiled and ready to run, includes user manual, reference 
card and one 5%” DSDD disk. Ideal for programmers not 
using Turbo. 


Source: $95 COMPLETE including tax and shipping. In- 
cludes all of the above, and two additional DSDD disks. 
Disks include complete Turbo Pascal source code, detailed 
programmer's manual (on disk) and several bonus utilities. 
Requires Turbo Pascal 2.0 or 3.0. 


Requirements: MSDOS 2.X or 3.0, 192K RAM — programs 
run in less RAM with reduced Capacity. Two drives or hard 
disk recommended. 


TO ORDER: 

VISA/MasterCard orders, call 7 days toll-free 1-800-538-8157 
x830. In California, call 1-800-672-3470 x830 any day. 

Or mail check/money order to: 















TurboPower Software 
478 W. Hamilton Ave., Suite 196 
Campbell, CA 95008 







Circle no. 81 on reader service card. 


76 






P. r ot OC ols Lis ting (Listing continued, text begins on page 66) 


trans() does transmission of a file. 


References globa 
Modifies globals 


Is: buffer, fd, batch; 
TO, Fee, ere. 


ne a ee eee */ 
VOID trans( in_name ) 
char *in_name; 
{ 
char nameC NAMESIZE+1]; 7* expanded name * / 
char ch; /* scratch character * / 
register char #*i; /* buffer pointer (index) */ 
int y; /* scratch counter */ 
Pec ;*: 1s /* uses "natural" numbering * / 
if( (fd = fopen( in_name, "rb" )) == NULL) 
¢ 
printf( "Unable to open: %s\n", in_name ); 
return; 
} 
if( batch ) /* need to send name? * / 
txname( parse( in_name, name ) ); 
printf( "\nTransmitting: %s", in_name ); 
while( rxstat() ) 
rx(); 
while( TRUE ) /* handshake w/ receiver */ 
t 
printf("\nSyncronizing: " ); 
if( (ch = waitcan( 10 )) == NAK ) 
{ 
printf( "Received Checksum Request\n" ); 
crce.™= FALSE: 
break; 
} 
if( ch == CRC ) 
c 
printf( "Received CRC Request\n" ); 
cre = TRUE; 
break ; 
a 
3 
while(l fillbuf() ) 7/* file not empty? * / 
txrec( buffer ); /* send record */ 
txt: £0T .¢ 
while( (ch = waitcan( 1 )) != ACK ) 
{ 
tx( EOT ); 7* show end * / 
} 
fclose( fd ); /* dump file */ 
printf( "\n%s transferred.", in _name ); 
} 
Pa ei ety Ne nt meg Sn ns nt etl msde eo chang di ed gael ec Se Uy 


txname(). transmi 
parameter 'name' 


References globa 
Modifies globals 


VOID txname( nam 
char *name; 


register int 


char ch; 
char crcsav; 


crcesav = 
cre = FA 
rlaaa T 


ts a file name from the CP/M fcb format 


Is: buffer, checksum, crc} 


* CRC 

a a cs ca ay stan sain tele s Re eevmerer ocoby */ 

e ) 

is /* scratch counter * / 
/* scratch cher */ 


/* holds state of global ‘crc' ¥«*/ 


Gre: /* we always use checksum for * / 
LSE; /* name error detection */ 
RUE ) 7* main loop for retries %/ 
while( rxstat() ) 

rx); 
i = 0; /* retry count */ 


while( TRUE ) 
€ 


printf( "\nWaiting for filename request"); 
if( waitcan( RETRY ) == NAK ) 

break; 
if( i++ > RETRY ) 
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error( "Can't send filename” ); 
printf( " - Received garbage" ); 





} 
tx( ACK ); /* handshake name request */ 
sleep(); /* decent interval */ 
printf( "\nSending name: " ); 
eirercth /* clear checksum accumulator */ 
ed i = 0; i ¢ NAMESIZE ; i++ )/* name loop */ 
tx( nameC i J ); 
putchar( nameCf i J ); /* local echo %/ 
wait( 10 ); /* wait for ACK */ 
} 
txt EoF-*3s /* name terminated w/EoF*/ 
if( wait( 10 ) == checksum ) /* handshake % / 
t 
printf( " - Name sent OK" ); 
tx( ACK ); /* handshake OK checksum*/ 
cre = crcsav; /* replacce ‘crc' * / 
: return; /* normal exit */ 
tx( BADNAME ); /7* handshake bad chksm */ 
: printf( " - Bad name transfer" ); 
} 
from your C programs 
seit ae A? ac et en let oc oe ie oa clara with 
txrec() transmits a single record, with retransmit on error from 
receiver. Input is a pointer to the I/O buffer. PC—LINT 


References globals: rec, crcaccum, checsum, crc; 


Modifies globals: rec; PC—LINT analyzes your C programs (one 
Be ek Lace iatian tare ei ae en in we ey RS Se er emi eS OS FS ee en ne ee */ or many modules) and uncovers glitches, 
bugs, quirks and inconsistencies. It will catch 
VOID txrec( buf ) subtle errors before they catch you. 
char *bufs 


PC—LINT resembles the Lint that runs on 
register int i; the UNIX O.S. but with more features and 
greater sensitivity to the problems of the 


unsigned cr; 8086 environment. 


while( TRUE ) /* do it until right * / 


£ e Full K&R C 

printf( "\rTransmitting record 4d * hee hs e Supports Multiple Modules —finds incon- 

tx( SOH ); /* start of header */ sistencies between declarations and use 

tx( rec )5 /* rec # nF of functions and data across a set of 

tx( “rec ); /* 1'S Comp */ modules comprising a program. 

ciroret): /* clear CRC accum * / 

for( i = 03 i ¢ RECSIZE ; i++ ) e Compares function arguments with the 
tx( buf€ i J); /* send record */ associated parameters and complains if 

upderc( 0 ); 7/* finish up CRC * / there is a mismatch or too many or too 

upderc( 0 ); /* again * / few arguments. 

wee /* save cro lobyte xa e All warning and information messages 

a cre ) /* send hi byte first */ may be turned on and off globally ~ 


locally (via command line and comments) 


tx( crcaccum >) 8 ); so that messages can be tailored to your 


tet or... 
} programming style. 
else @ All command line information can be 
é _ tx checksum ); be furnished indirectly via file(s) to automate 
if( waitcan(10)==ACK ) /* quit if correct * / testing. 
break ; Pty 
printf( "Error in transmission\n" ); ® Use it to check existing programs, pro- 
} grams about to be exported or imported, 
rect++; /* bump record count %/ as a preliminary to compilation, or prior 
3 to scaling up to a larger memory model. 
e All one pass with an integrated pre- 
[teewew enone canna seb esse seen eb eet Lae ne nae eee essa cenennsen processor so it’s very fast. 
receive() is the receive executive. It requires no input e Has numerous flags to support a wide 
parameters except ‘crc' should be set. Does not "hunt" from variety of C’s, memory models, and 
References globals: line; e Introductory Price: $98.00 MC, VISA 
Modifies globals: line; (Includes shipping and handling) PA residents add 6% 
oem Seta hee ln eat inc rma en SS a np sa ak eee eye tor Satin ig ae ny ea */ sales tax. Outside USA add $10.00. 
; e Runs on the IBM PC (or XT, AT or 
VOID receive() compatible) under DOS 2.0 and up, with 
t ; se a minimum of 128KB of memory. It will 
printf( "\n\nReceive File specification: “" ); use all the memory available 
gets( line ); ; 
if( rxstat() ) 
rx); /* gobble trash */ (5 So 
if( index( line, '*' ) != NULL )/* ‘batch’ set by a */ UP tel PUA 
rxbatch( line ); /* asterisk */ 
ied /* in input file name = */ 3207 Hogarth Lane @ Collegeville, PA 19426 
rxfile( line ); 7* otherwise nobatch * / (215) 584-4261 
3 *Trademarks: IBM (IBM Corp.), PC—LINT (Gimpel Software), 
UNIX (AT&T) 


(Continued on next page) 
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Mac 
Inker 


Re-ink any fabric ribbon 
AUTOMATICALLY for less 
than 5¢. Extremely simple 
operation with built-in 
electric motor. We have a 
MAC INKER for any printer: 
cartridge/spool/harmonica/ 
zip pack. Lubricant ink safe 
for dot matrix printheads. 
Multicolored inks, uninked 
cartridges available. Ask for 
brochure. Thousands of 
satisfied customers. 

$54.95 4 


— 








Mac Switch lets you share 
your computer with any two 
peripherals (serial or 
parallel). Ideal for word 
processors—never type an 
address twice. Ask us for 
brochure with tips on how to 
share two peripherals (or two 
computers) with MAC 
SWITCH. Total satisfaction or 
full refund. 

$99 00 








We. Se See 
RR 


Order toll free 1-800-547-3303 


Dealer inquiries welcome 

— 
C==mputer 

& 
Friends 


6415 SW Canyon Court #10 
Portland, Oregon 9722] 
(503) 297-2321 
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P, r ot OC ols Lis ting (Listing continued, text begins on page 66) 


rxbatch() 


References Globals: 
Modifies Globals; 


line; 
line; 


a a a ec lr et a AS eae eb id ce gs rls a vs hy es pr repress nse be hes eg */ 
VOID rxbatch() 
{ 
char fcbol€ NAMESIZE + 1 ]; /* used by unparse() */ 
char nameC NAMESIZE + 5]; /* unparsed name % / 
while( TRUE ) 
t 
while( rxstat() ) 7* gobble trash */ 
rx); 
printfl "\nWaiting for file name: " ); 
rxname( fcb ); /* receive file name into fcb */ 
unparse( name, fcb ); /* make "standard" * / 
if( linet 1 ae 8g! ) 
line€l 2 J = '\O'; 
else 
linel 0 J = '\O'; 
strcat( line, name ); 
rxfile( line ); /* receive file * / 
} 
} 
PO ee ee em a os in ema nse wn ta wo ee gn oo eee le oe Sn ———- 
rxname() loads a CP/M style fcb with a filename from remote 
sender. On receipt of an EOT instead of 3 name character, 
aborts to master menu via longjmp(). 
Se ae a a ce ata Se ah rr milage ads ew eed eh lin cr oe nl pte een Gh cree ea nda cen es, */ 
VOID rxname( fcb ) 
Char *fcb; 7* points to CP/M style fcb * / 
{ 
char *fcbptr; /* index to fcb * / 
register int i; /* scratch counter */ 
int ch; /* scratch char (must hold ERR) #*/ 
char chksum; /* checksum accumulator */ 
While( TRUE ) 
{ 
fcbptr = fcb; ‘* align index % / 
i = RETRY * S; /* retry for name h.s. #*/ 
while( TRUE ) /* Handshake NAK */ 
t 
abort(); 7* check operator abort #/ 
tx NAK ); 
if( swait() == ACK ) 
break; 
if( !( i-- ) ) 
error( "Timed out waiting for name" ):; 
3 
chksum = EoF; /* init checksum */ 
ror’ 1. = 4°. OC 3e:4 feet.) /* accept noise */ 
{ 
if( (ch = swait()) == EQT ) 
{ 
tx( ACK ); 
printf ( 
"\nAll transfers completed" d; 
longjmp( &to_menu, 0 ); 
3 
if( ch == EoF ) /* End of name chars */ 
break; 
if( ch != ERROR ) 7* not timeout #*/ 
t 
*(fcobptr++) = ch & Ox7F; 
putchar( ch ); 
chksum += ch & Ox/7F; 
} 
abort(); /* operator abort */ 
: tx( ACK ); /* handshake name char ¥*/ 
fcb£E NAMESIZE J] = 0; /* terminate name field */ 
do f 
abort(); 7* operator abort */ 
tx( chksum ); /* hNandshake checksum */ 
+ while( (ch = swait()) == ERROR ); 


is the batch mode reception executive. 


(Continued on page 80) 
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< You Need 
To C You Thru. 


Now the %ard%a«'" Applications Programmers Toolkit provides 
everything you need to increase your C programming productivity. 


APT" features include: 
@ COMPLETE SOURCE CODE (over 5000 lines!) 
® File handling with direct & keyed access 
@ Screen and Report Generators, with full screen handling for your programs 
@ Generic Terminal Driver for portable code 
© String math functions, and string manipulation routines 
® Reference Manual on Disk (over 50 pages) 
@ Tutorial Manual (over 25 pages) with Source for Mailing List Manager 
© A host of useful Utilities, Database and File Editors 
@ Available for Lattice C, Mark Williams C, DeSmet C, BDS C, others. 


Also Available: C-‘STARTER Toolkit, great for learning C!! Includes: Customized 
APT, DeSmet C Compiler, and “Programming in C on the IBM-PC” (200 pages) 


en ct ee PES ee eet KL OO 


APT/MS-DOS versions ..... 0.2... cece ccc ce cece eee eee $495  - 
APT/DeSmet C version .. 2... ec cece ccc cee cee cas cces $395 i= 
Pe fi, nee ee Ck $395 i 
C-Starter (binary APT, DeSmet Compiler and Book)......... $295 
APT/Manual only... 2... 6 02. ec ccc eee e eee e ect tenes $ 50 


**Detailed Brochures on request** 


*Manual Cost will be applied if APT purchased within 
30 days (10 re-stocking charge.) U-S. funds only, please. 
; MS-DOS/Microsoft, Lattice C/Lattice, Inc., MWC86/Mark Williams Co., DeSmet C/C Ware, C1-C86/Computer Innovations, Inc., BDS C/BD Software, 
DR-C/Digital Research, WizardWare, APT, C-Starter/Shaw + American Technologies. 


Call (502) 583-5527 
Ask for APT™ or C-Starter, or Send Check to: 


Shaw >: American Technologies 
830 South Second St. - Box 648 
Louisville, KY 40201, USA 


(C.O.D. and Foreign Orders - Add $5 Shipping/Handling) 
References: Bank of Louisville, Citizens Fidelity Bank, Louisville Chamber of Commerce 


Trademarks: 





be) SO LE cial 


SS a OE a a? a | ear ee 
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Tease cic, 


Poor Person Software 


Introduces 


Write-Hand-Man 


Desk accessories for CP/M 


Write-Hand-Man lets you take notes, check phone 
numbers, make appointments, and countless other tasks 
without leaving Wordstar, dBase, Multiplan, or any other 
application. Enter Write-Hand-Man with a single key- 
stroke and choose the program you want. When you 
leave Write-Hand-Man, your application continues 
normally. | 


$49.95 plus tax delivers Write-Hand-Man and 4 
companion programs; Notepad, Phonebook, Calendar, 
and Termcomm. User written programs are easily added. 
All you need is M80 or some other LINK-80 compatible 
assembler. 


Other CP/M products available from Poor Person Software: 
Poor Person’s Spooler ($49.95), Poor Person’s Spelling Checker 
($29.95), Poor Person’s Spread Sheet ($29.95), Keyed Sequential 
Files ($39.95), Poor Person’s Menus ($29.95), aMAZEing Game 
($29.95), Window System ($29.95), Crossword Game ($39.95), 
Mailing Label Processor ($29.95). Shipping included. 


All products available on IBM 8 inch and Northstar 5 inch disks. Other 5 inch 
formats add $5 handling charge. No credit cards. 


Poor Person Software 
3721 Starr King Circle 
Palo Alto, CA 94306 
tel 415-493-3735 


CP/M is a registered trademark of Digital Research 
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in the Universe 


NEW: Disk Maker Il Plus 





Download fast, read over 200 formats easily, reformat rapidly 





The more disk formats you work with, the more our 
Disk Maker™ system saves time and money by reading 
and/or writing disks in any of over 200 formats. No mo- 
dems, no patches, no other special software necessary. 


Disk Maker Il Plus is a complete, stand-alone system 
featuring both 8’’ and 5%’’ disk drives with options for 
3%'’ and IBM PCAT drives—up to 12 total drives. With 
its 6 MHz processor and RAM memory drive, Disk 
Maker || Plus is fast! Hardware options include a 15 or 
90 Mb hard disk, an 8086 MSDOS coprocessor and 
memory expansion. 


Optional software includes word processor and Compu- 
graphic typesetter formats and the MicroDrive Tester 
for drive alignment testing. 


Supported with comprehensive manual, 6 month war- 
ranty and continuing software update program. 


Disk Maker | is an alternative for existing S-100 sys- 
tems (CompuPro, Zenith Z-100, North Star, etc.) to 
orovide the same functions as Disk Maker II Plus. 


Write or call today for information on how Disk Maker™ 
can save you time and money. 


Circle no. 76 on reader service card. 


Jerry Pournelle wrote about Disk Maker™: 

“It’s easy to install, easy to use, and darned near 
unique. If you need one, you need it bad.’ (BYTE, July 
1984) 









New 
GeNeCRATION 
SsyYsTemMs 


1800 Michael Faraday Drive. Suite 206. Reston, VA 22090 
(703) 471-5598 Order Line: (800) 368-3359 
Dealer inquiries welcomed. 


Protocols 


Lis ting (Listing continued, text begins on page 66) 


if( ch == ACK ) 
return; 
printf(" - Checksum error\nRetrying file name: " 3; 


/* ACK is good name */ 


rxfile() receives a file. Input parameter is the name, including 


drivspec if any, 
the function is 
possible. Have ' 


to save incoming data under. To maintain speed 
rather long to reduce function calls where 
crc' set before entry. 


References globals: buffer, fd, rec, crcaccum, checksum, crc; 
Modifies globals: buffer, rec; 


Sa ee ca ei a yn a ss tr coe ng sa wea en ed ees nse es nn ain er er ede en sd eee cs */ 
VOID rxfile( name ) 
char *name; 
‘ 
char ch; /* scratch handshake var * / 
char response; 7* ACK/NAK/CRC handshake * / 
cher crcecrlio; /* rec'd CRC low byte */ 
char crecrhi; /* rec'd CRC hi byte */ 
char rl; /* current record number */ 
char re; /* 1's comp record number */ 
unsigned int Jj; /* wait loop timer */ 
int i; /* scratch counter * / 
register char *bptr; /* buffer index */ 
while( rxstat() ) 
PHO} 3 
make( name ); /* open/make backup * / 
peintrt “\or-}y 
rec. = 1; /* uses natural numbering */ 
if( cre.) /* set initial handshake to */ 
response = CRC; /* CRC or checksum * / 
else 
response = NAK; 
while( TRUE ) /* record receive loop * / 
{ 
bptr = buffer; 7* align index */ 
printf( "\rWaiting for record %d we Se. ha 
for( i=! ; i (= RETRY * 5 ; j++ ) 
{ 
abort(); 
tx( response ); /* send handshake * / 
if( (ch = swait()) == SOH ) 
break; /* SOH indicatees rec */ 
if( ch == EOT ) /* EOT indicates done * / 
{ 
printfl "\n%s received OK", name ); 
fclose( fd ); 
tx( ACK ); /* handshake */ 
return; /* normal exit #*/ 
3 
if( ch == CAN ) /* Xmit request abort */ 
{ 
fclose( fd ); 
error ("\rReceived cance] request"); 
} 
if( i == RETRY * S ) /* timeout exit #*/ 
error( "Can't sync to sender" ); 
. 
ri = swait(); /* record number */ 
re = swait(); /* 1's comp record # * / 
while( bptr - buffer «< RECSIZE ) /* test count */ 
t 
*(bptr++) = swait(); /* accept char ¥*/ 
} 
iff ere. i 7* get nibyte CRC */ 
crecrhi = swait(); 
crerio = swait(); 7* lobyte CRC or chksm ¥*/ 
response = NAK; /* init response */ 
if( (‘ri & OxFF) != (r2 & OxFF) ) 
t 
printf( "- Record numbers don't match\n" V3 
continue; 
} 
cirerc(); /* calc checksum/CRC */ 
fort..j * 0 3..J < REGSIZE.; J++ ) 
updcrc( buffer£€ j ] ); 
80 
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DE SMET C 


8086/8088 Development Package 


$109 


SYMBOLIC DEBUGGER $50 


e Examine & change variables by name 
using C expressions 

@ Flip between debug and display screen 

@ Display C source during execution 

@ Set multiple breakpoints by function or line 
number 


pos LINK suppoRT © $3} 


e Converts DeSmet.0 to DOS.OBJ Format 
e LINKs with DOS ASM 
e Uses Lattice® naming conventions 


WARE 


CORPORATION 


P.O. Box C, Sunnyvale, CA 94087 
(408) 720-9696 
Street Address: 505 W. Olive, #767 (94086) Call for hrs. 


All orders shipped UPS surface on IBM format disks. Shipping included in price. California 
residents add sales tax. Canada shipping add $5, elsewhere add $15. Checks must be on U.S. 
Bank and in U.S. Dollars. Call 9am—1pm to CHARGE by VISA/MC/AMEX. 


Foreign Distributors: AFRICA, HI-TECH SVCS, Gaborone 4540 or Telex 2205BD LANGER e 
ENGLAND: MLH Tech, 0606-891146 e JAPAN: JSE 03-486-7151 @ 
SWEDEN: ESCORT DATA 08-87 41 48 or THESEUS KONSULT 08-23 61 60 


WIZaRO C 


..written by someone who has been in the business 














a while. This especially shows in the documentation.’ 

















Computer Language 
FULL DEVELOPMENT PACKAGE February, 1985 


e Full K&R C Compiler 

e Assembler, Linker & Librarian 

e Full Screen Editor 

@ Execution Profiler 

@ Complete STDIO Library (>120 Func) 


Automatic DOS 1.X/2.X SUPPORT 
BOTH 8087 & S/W FLOATING POINT 
OVERLAYS 


OUTSTANDING PERFORMANCE 


@ First and Second in AUG ’83 BYTE 
benchmarks 













Ail UNIX System V language features 
e Support for 8087, 80186 and 80286 
e Full library source code included 
© Cross-file checks (full UNIX lint) 
e Uses MS-LINK or PLINK 86 

e ROMable data options 


e In-line assembly languaze 


t 
! 
d 
' 























e Cross compilers available 


Third party software available, including, PANEL 








The new standard for C Compilers on MSDOS! 





Only $450. 
(617) 641-2379 


11 Willow Court 
Arlington, MA 02174 
VA, hk RD 


ees 
Systems Software, Inc. ean oo 


Circle no. 18 on reader service card. 
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2 Megabyte SemiDisk! 


Have you been waiting on your slow floppy disk Someday you'll get a SemiDisk. 
drives too long? SemiDisk Systems has a disk Until then, you'll just have to 
emulator for you! It'll put you in the fast lane, with 
ultra-fast data transfer, huge storage capacity, conve- 
nient battery backup, and a handy print spooler. SemiDisk I, $-100 $995 


SemiDisk II, S-100 $1295 $2549 
IBM PC, XT, AT $945 $2499 


Have you been waiting for a SemiDisk big enough 


to handle your large applications programs, files, and 
databases - all at once? Your wait is over. SemiDisk QX-10,QX-16 $799 $2499 


TRS-80 I1,12,16 $995 $2499 


Systems is now delivering 2 megabytes of disk storage 
Battery Backup Unit $150 


on a single board! 


512k, 1Meg and 2Megabyte SemiDisks are available 
for S-100 computers, (including the H/Z-100 operat- SE iM ] DISK 
ing under Z-DOS), IBM PC, XT, & AT, the TRS-80 Mod- 
els II, 12, & 16, and the Epson QX-10. Once you ve SemiDisk Systems, Inc. 
tried a SemiDisk you'll know why we say. . . P.O. Box GG, Beaverton, Oregon 97075 


ae 503-642-3100 





VISA | Hibsesccee charge | Call 503-646-5510 for CBBS/NW, 503-775-4838 for CBBS/PCS, and 503-649-8327 for CBBS/Aloha, all SemiDisk-equipped 
Bees Z F | computer bulletin boards (300/1200 baud). SemiDisk, SemiSpool trademarks of SemiDisk Systems. 
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P, r ot OC ols Lis t ing (Listing continued, text begins on page 66) 


upderc( 0 ); /* required to finish */ 
updcrc( 0 ); /* off CRC - why? */ 
iFt. crea 7* CRC test */ 


if( (crerlo + (crerhi ¢¢€ 8)) t= crcaccum ) 
z 


printf( "- Bad CRC received\n" ); 


continue; 
7 
fi tere.) 7/* checksum test */ 
if( crerlo != checksum ) 
printf("- Bad checksum received\n"); 
continue; 
} 
if( (ri == (rec - {) & OxFF ) ) sx duplicate? * / 
{ 
printf( " - Received duplicate record\n" ); 
response = ACK; /* dup is OK - ACK was” */ 
continue; 7* trashed - ignore it #*/ 
} 
if( ri $= (rec & OxFF) )/* fatal sequence error */ 
error( "File record numbering error" ); 
rec++; /* bump record count * / 


for( J = 0 3; Jj ¢ RECSIZE ; j++ ) /* write data ¥*/ 
putc( buffer€ j J, fd ); 
response = ACK; /* normal loop end %/ 


make() opens a file for output. It renames any existing file 

with the same name to ".BAK", and erases any previous backup. 
Input parameter is filespec in "normal" (compressed) format. 

Note: file rename by the link() function isn't supported 

by several CP/M C Compilers, and others call this function 
rename(), or reverse the arguments. At any rate, you can determine 
how to handle backups in your own system and take any 

appropriate action. 


References globals: fd; 
Modifies globals: fd; 


eta i i i nn nt lf ap ih yi ee ea, eve caw hn scp ihn st capes pts 2s Leas eis, eee */ 
VOID make( name ) 
char *name; 
{ 
#ifdef LINK 
char bak€ NAMESIZE +5 ]; /* holds .BAK filespec * / 
/* does this name exist? */ 
if( (fd = fopen( name, "r" )) != NULL ) 
{ 
fclose( fd ); /* we were just checking %/ 
strcpy( bak, name ); /* save old name */ 
if( index( name, '.' ) )/* extension spec'ed? */ 
strcpy( index( bak, '.' ), ",BAK"™ ); 
else 
strcoat( bak, ".BAK" )-; 
unlink( bak ); /* dump any old .BAK file */ 
link( bak, name ); /* rename new .BAK file * / 
} 
tendif 
if( (fd = fopen( name, "wb" )) == NULL ) 
error( "Can't create file - Aborting" ); 
} 
{(#------ Fa ere ee ee ee a Se See aah na Ae se SES mes ce sao ee’ waar ain cp Gump Walp tn) G-Spot Soln ies see ae Ei de, tans eras 
parse() expands non - ambiguous filespecs to the 
Standard CP/M fcb format, excluding drive byte. 
Sets the globals 
"batch' if ambigous, and 'driv' for Grivespecs. 
Inputs are "normal" filespec (inspec), and exanded fcb. 
Sr PNR eS eae ie eo iad tee NR aa Sel cal a Bahl ee a ab ccd edna ok ar ge he Dh ache ie hese */ 
char *parse( inspec, fcb ) 
char *inspec, *fcb; 
register int i; /* fcb index %/ 
int inptr; /* input spec index */ 
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Changing Your 
Address? 


Staple your !abel here. 


To change your address, attach your address label 
from the cover of the magazine to this coupon and 
indicate your new address below. 


The new LMK Automated Product Gener- 
ation Utility (similar to UNIX “MAKE”) for 
MS-DOS makes rebuilding your complex 
software systems or documents a much 
“lighter” task. 

All you do is create “dependency files” 
consisting of macro definitions and depen- 
dency descriptions followed by executable 
commands to specify relationships of the 
various pieces of your system. After any 
changes, a single LMK command initiates 
the automatic rebuilding of your system. 

LMK reads the dependency files and 
compares the dates and times of the last 
modification. If the date and time of the 


Name 
Address 
Address 
City 


Zip 
Mail to: Dr. Dobb’s Journal, PO Box 27809, CA 92128 





Automated Pro 
Ger eration Utility 


target is earlier than the date and time of the 
area it depends upon, the “action’’ specified 
in the file will be executed. 

LMK actions can be any executable 
command. Invoke a batch text editor to make 
replacements in a number of files. Apply a 
file comparator to new and old files. Update 
a database. Or run any other utility. You are 
limited only by your imagination. 

Lighten your programming, maintenance 
& filing . . . Order LMK today! 


PRICE: $195 
ASK ABOUT OUR “TRADE UP TO 
LATTICE C POLICY” 
For more information or to place your 
order contact: 


LATTICE 


P.O. Box 3148 
Glen Ellyn, IL 60138 
TWX 910-291-2190 (312) 858-7950 
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THE SYMBOLIC SINE QUA NON 


E | S P O 



















Cybermetrics UNXLISP-86 (tm) Features: 











e |] Megabyte address space. 


e LAMBDA, NLAMBDA, MACRO with 
displacement. 


© CATCH, THROW, ERRSET, & ERR. 
e SAVE/RESTORE virtual images to/from disk. 
e %OPTIONAL, &REST, and &AUX parameters. 


e Tree-structured object list, functional 
directories. 






















control system. 


e Lisp utilities with source, including pretty- : : 
printer, structure editor, debugging functions. i e Virtual memory 


Special libraries 
e Works with any text editor through exec epee y 


function. 


° Extensive manual - written in ENGLISH e Large model 


eine 


e Requires 320K memory and runs under 
MSDOS and PCDOS versions 2.0 and later. 


TECHNICAL 
(408) 725-1344 

















TECHNICAL 









automata design assoc. 


1570 ARRAN WAY 
DRESHER, PA 19025 


TO ORDER CALL (215) 355-5400 USE IT FOR 30 DAYS 


$49.00 






ADD $3.00 FOR 
SHIPPING & HANDLING 
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(215) 646-4894 


THE fifth generation language 
R 


1B 6] € 


Implementing the full Edinburgh Syntax as 
described by Clocksin and Mellish. 


Recognized by Japan as providing unparalleled 
opportunity for artificial intelligence. 





Applications: 
e The highest level of a hierarchial robotic 


e Machine recognition of natural language. 
e Expert systems and knowledge engineering. 





Optional: 


e Language extensions 


Requires 192K memory and runs under MSDOS 
and PCDOS versions 2.0 and later. 


$29.95 


other versions $5O-S$5OO 


VISA 
MASTERCARD 






educational package 


isvs 
FO RTH 


for the Apple® | 


Fixed point speed can rival that of float- 
ing point hardware. But the details have 
been a well kept secret—until now. The 
following graphs were generated by fixed 
point examples from the ISYS FORTH 
manual. 


Parallel Resonance with Damping 
BASIC 213 sec ISYS FORTH 27 sec 


Hydrogen 3p Orbital Cross-section 
BASIC 492 sec ISYS FORTH 39 sec. 


Fast native code compilation. Sieve 
benchmark: 33 sec 

Floating Point—single precision with 
trancendentals 

Graphics—turtle & cartesian with 70- 
column character set 

Double Precision including D*/ 

DOS 3.3 Files read & written 
FORTH-83 with standard blocks 
Full-Screen Editor 

Formatter for word processing 

Macro Assembler 

Price: $99, no extra charges 


ILLYES SYSTEMS 
PO Box 2516, StaA 
Champaign, IL 61820 


Technical Information: 
217/359-6039, mornings 


For any Apple ][ model, 48K or larger. 
Apple is a registered trademark of Apple 
Computer. 
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P, r ot OC ols Lis ting (Listing continued, text begins on page 66) 


for( i = 0; i ¢ NAMESIZE ; j 
TEBE ff Peart. 

if( inspec€ 1 J] == ';' ) 
inptr = 2; 

else 
inptr = 0; 

i = 0; 


while( TRUE ) 


++ )/* blank fill name * / 


/* check for drivspec * / 
/* point past drivespec */ 


/* index to start */ 
/* pointer into feb */ 


Switch( inspec€ inptr++ ] ) 


{ 
case ‘\0'; /* end of input spec */ 
fcb£ NAMESIZE J = 0; 
return( fcb ); 
case’. *s /* extension spec'ed */ 
i = NAMESIZE - 3; /* extension */ 
break ; 
default: 
if( i ¢ NAMESIZE ) 
fcbC i++ ] = eepeer 
inspec( inptr - 1] ); 
} 
} 
[em me we a ee ee 


fillbuf() loads the I/O buffer with a record from the input file. 
Returns TRUE if data was available, FALSE if no data left. 


References globals: buffer, fd; 
Modifies globals: buffer; 


oo a a oe ee ee eee ee ee eee wee */ 
int fillbuf() 
{ 
register int i; /* scratch counter * / 
int errorchk; /* holds EOF in Eco C */ 
TOE (1. 8-4 ott RECSIZE 3 144: 
{ 
if( (errorchk = getc( fd)) == EOF ) 
break ; 
bufferC i ) = errorchk; 
} 
if( j == ) /* no data read % / 
return( FALSE ); 
for( 3; i € RECSIZE ; i++ ) 
bufferlC i J = Q; /* zero fill at EOF * / 
return( TRUE ); 
} 
JB See eH ee iS ee Smee ee Soe wean nnnemeuncea.. 


unparse() reassembles a filename from 


a CP/M fcb into "normal" or 


cmpressed form, so that our C functions can deal with them. 
Inputs are a pointer to a string to receive the name (name), and 
& pointer to a CP/M style fcb entry (buf). 


a See tf St te Se eh fs een hc a wees ae oe Sa sh ws Sb mes ew eee en et ines * / 
char *unparse( name, buf ) 
char *name, *buf; 
register int i; /* 'name' index * / 
int hs /* 'buf' index * / 
i= 0; /* ‘driveless' name */ . 
for( j = 0 ; J © NAMESIZE ; j++ )/* transfer chars */ 
{ 
bf. bufl ff Fcte'-% 4 /* (skip spaces) * / 
nameC i++ ) = buff j J & Ox7F; 
if( Jj == NAMESIZE-3 ) /* don't forget dot */ 
nameC i++ J] = ','; 
} 
mameC i J = 'N\O'; /* terminate string * / 
/* eat terminal dot * / 
if( *(index( name, '.' ) + 1) == '\Qr ) 
*(index( name, '.' )) = '\O! 
return( name ); /* return pointer * / 


clrerc() clears the cre accumulator. 


Not much to it, actually. 


(Continued on page 86) 
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Vol. 1 1976 

The material brought together in this volume chronicles the development in 
1976 of Tiny BASIC as an alternative to the “finger blistering,” front-panel, 
machine-language programming which was then the only way to do things. 
This is always pertinent for bit crunching and byte saving, language design 
theory, home-brew computer construction and the technical history of 
personal computing. 

Topics include: Tiny BASIC, the (very) first word on CP/M, Speech Synthesis, 
Floating Point Routines, Timer Routines, Building an IMSAI, and more. 


Vol. 2 1977 


1977 found DD4J still on the forefront. These issues offer refinements of Tiny 
BASIC, plus then state-of-the-art utilities, the advent of PILOT for microcompu- 
ters and a great deal of material centering around the Intel 8080, including a 
complete operating system. Products just becoming available for reviews 
were the H-8, KIM-1, MITS BASIC, Poly Basic, and NIBL. 

Articles are about Lawrence Livermore Lab‘s BASIC, Alpha-Micro, String 
Handling, Cyphers, High Speed Interaction, I/O, Tiny Pilot & Turtle Graphics, 
many utilities, and even more. 


Vol. 3 1978 


The microcomputer industry entered its adolescence in 1978. This volume 
brings together the issues which began dealing with the 6502, with mass- 
market machines and languages to match. The authors began speaking more 
in terms of technique, rather than of specific implementations; because of this, 
they were able to continue laying the groundwork industry would follow. 
These articles relate very closely to what is generally available today. 
Languages covered in depth were SAM76, Pilot, Pascal, and Lisp, in addition to 
RAM Testers, S-100 Bus Standard Proposal, Disassemblers, Editors, and much, 
much more. 
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— 41979 


This volume heralds a wider interest in telecommunications, in algorithms, 
and in faster, more powerful utilities and languages. Innovation is still present 
in every page, and more attention is paid to the best ways to use the proces- 
sors which have proven longevity—primarily the 8080/Z80, 6502, and 6800. 
The subject matter is invaluable both as a learning tool and as a frequent 
source of reference. 

Main subjects include: Programming Problems/Solutions, Pascal, Information 
Network Proposal, Floating Point Arithmetic, 8-bit to 16-bit Conversion, 
Pseudo-random Sequences, and Interfacing a Micro to a Mainframe—more 
than ever! 


Vol. 5 1980 


All the ground-breaking issues from 1980 in one volume! Systems software 
reached a new level with the advent of CP/M, chronicled herein by Gary 
Kildall and others (DDJ’s all-CP/M issue sold out within weeks of publication). 
Software portability became atopic of greater import, and DDJ published Ron 
Cain’s immediately famous Small-C compiler—reprinted here in full! 
Contents include: The Evolution of CP/M, a CP/M-Flavored C Inerpreter, Ron 
Cain’s C Compiler for the 8080, Further with Tiny BASIC, a Syntax-Oriented 
Compiler W/riting Language, CP/M to UCSD Pascal File Conversion, Run-time 
Library for the Small-C Compiler and, as always, even more! 


Vol. 6 1981 


1981 saw our first all-FORTH issue (now sold out), along with continuing cover- 
age of CP/M, small-C, telecommunications, and new languages. Dave Cortesi 
opened “Dr. Dobb's Clinic” in 1981, beginning one of the magazine’s most 
popular features. 

Highlights: information on PCNET, the Conference Tree, and The Electric Phone 
Book, writing your own compiler, a systems programming language, and Tiny 
BASIC for the 6809. 
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Mm MEMORY MANAGEMENT 
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Dynamic Allocation 
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M FUNCTION TYPES 
EXPR/FEXPR/ MACRO 
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Over 190 Primitive Functions 


10 SUPPORT 
Multiple Display Windows 
Cursor Control 

All Function Keys Supported 
Read and Splice Macros 
Disk Files 


POWERFUL ERROR RECOVERY 
8087 SUPPORT 

COLOR GRAPHICS 

LISP LIBRARY 


Structured Programming Macros 
Editor and Formatter 

Package Support 

Debugging Functions 

OBJ File Loader 


mM RUNS UNDER PC-DOS 1.1 or 2.0 
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Pr r ot OC ols Lis ting (Listing continued, text begins on page 66) 


References globals: 
Modifies globals: crcaccum, checksum; 


a ee ee ee ee ee ee ee */ 
VOID clirerc() 
{ 
crcaccum = 
checksum = 0; 
} 
i a ta et pie iY Si er ea hii ah Sew eh a is Ss ik Fs ahs ee a ss we ed tt ah ed 
upderc() updates the cre accumulator, if '‘crc' is TRUE, else 
updates the checksum. 
'x' js the byte to be added to CRC or checksum. 
CCITT polynomial. 
References globals: crc; 
Modifies globals: crcaccum, checksum; 
cp: ne se rote se sm ens i et a in i st Han as ss bh se sds cp bal yids a sd ws os * / 
VOID upderc( x ) 
char x; 
unsigned shifter, i, flag; 
if: See) 
{ 
for( shifter = 0x80 ; shifter ; shifter )»)= 1 ) 
‘ 
flag = (crcaccum & 0x8000); 
crcoaccum ¢(¢= 1; 
crcaccum l= ((shifter & x) ? 1 3: 0); 
if {Flag -) 
crcaccum *= 0x1021; 
} 
} 
else 
checksum += x; 
} 
/* —_——_—— ee ee ee ee ee ee ee ee em ee ee em ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ae oe es es ee 
abort() scans console for “*X abort code. Exit via error(). 
System Dependent. If not supportable, convert to null function 
or delete and use a preprocessor macro to make it go away. 
ay Sy fog ls Sy iy Sy la nL hws uc dw ai nf is rs is lp Se al aun iso 'ens xs esos cw lt nd ud tal cdl Sen */ 
VOID abort () 
{ 
if( _bdos( 6, OxFF ) == 'x'-'@' ) 
error( "\rQperator requested abort” ); 
} 
FE i Sa cia se ier ak Spe i le a a as on spi is vl aX Ds oo Wen st dd nh pon cn ptr eo ig no th ad eS es 
error() does error abort cleanup 
References globals: fd; 
or a nn ee ee ee ee eee ee */ 
VOID error( str ) 
char *str; 
fclose( fd ); /* dump any open files #*/ 
tx( CAN )3; /* alert remote */ 
putchar( BELL ); /* alert operator */ 
printf("\n\nError - %s\nPress any key to continue", str ); 
getchar(); /* pause */ 
longjmp( &to_menu, 0 ); /* rejoin menu */ 
} 
J Hm mmm me ee ee ee ee eee 
sleep() does a short delay to account for transmission line 
latency, etc. 
Oe ee a ee ee me eee eens eee eo eee oe */ 
VOID sleep() 
{ 
register unsigned int i; 
for( i=0 ; i ¢ MAGIC_NUMBER ; i++ ) 
3 (Continued on page 88) 
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‘The Mercedes-Benz of BASICs 


8086/88 IBMPCAT MS-DOS 
CP/M-86 MP/M-86 TURBODOS 
NETWORK COMPATIBLE: PCNET, 3-COM, NOVELL, ETC. 


MEGABASIC reduces program development time and memory 
requirements dramatically, executes up to 6 times faster than 
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FORTRAN coded subroutines and DEMO programs. 
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driven, buffered data to be received. With this capability, 9600 
BAUD communication is possible. The file handling library contains 
all the required software to be DOS 3.0 PATHNAME compatible. 


STRINGS & THINGS™ 


Support for CHARACTER MANIPULATION (string support), 
SHELL, BATCH, MUSIC, CMD LINE, and ENVIRON CTRL. 
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California residents, please add 6% sales tax. 


Versions available for IBM Professional Fortran 
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F77L 
the complete implementation 
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VIEW v3 
The ultimate CP/M 
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© Edits any disk sector 

© Displays allocation bit map 
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If you ever had to recover a 
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P. r ot OC ols Lis t ing (Listing continued, text begins on page 66) 


wait() waits for a character - timeout built in. Timeout 
condition causes error return to menu. 
Input parameter 'time' controls duration of wait. 


nn ee ee ee ee eee ee ee ee eee */ 
int wait( time ) 
int time; 
. 
register unsigned int i; /* loop timer * / 
int Js /* timeout count */ 
J = /* timeout count */ 
i = 0; /* inner timeout count */ 
while( trxstat() ) 
if( i++ » MAGIC _NUMBER * 3 )/* about 1.5 secs */ 
if( !(time--) ) /# check retry count */ 
error( "Receiver timed out" ); 
else /* more tries available */ 
{ 
abort(); /* scan for *X * / 
if( !j ) /* \n first timeout */ 
prInte...* Wy 
printf "\rtimeout 4d Yer als 
i = 0; 
} 
return( rx) );: /* send Gack char */ 
} 
FS i we so cal ep tin gp i a nate gp hai pia che ph asl fos te ele i Nip Noe nc ty Cede a Wl ebb es wk 


Swait() does a short wait for a char from rx, returns ERROR on 
a timeout, or char received. 


a ee ee ee eee */ 
int swait() 
{ 
register unsigned int i; 7* loop timer * / 
i = 0; 
while( i++ € MAGIC_NUMBER ) /* loop timing test * / 
if( rxstat() ) /* anything yet? */ 
return( rx() ); /* yes, return char */ 
return( ERROR ); /* timeout exit * / 
3 
IV am ee ee oe ee nn ee ee ee eee ee 
waitcan() waits for a character - If recv's CAN aborts to main 
menu. Uses wait() for timing loop, so timeout also returns | 
to main menu. Input argument 'time' controls duration of wait. 
se Soa chan cea Sg psi rn glia Se is a Ge is pn sl Sng as lek bos ene gg */ 
int waitcan( time ) 
int time; 
{ 
char ch; 
if( (ch = wait( time )) == CAN ) 
error( "Received cancellation request" ); 
return( ch ); 
} 
Me a mm a a a Nn en ss Spy ba mae he Se Se a a i ws hed Ss gs een hfs as es es nb nc os ks Ss sts se 
The following functions are machine dependant and should be 
modified to run on your machine. 
a a a wr aw ww a on ww en on a ne ee ee ee */ 
I TS ae ne ee a oat daa fad sho ip ns ard fing dw ne ws he 
init() initializes globals. In addition, UART initialization 
goes here as well, if required. No input parameters. May have 
some machine dependant stuff here. 
References globals: 
Modifies globals: crc, batch, buffer, line; 
On a a a a oo on nn eee */ 
VOID init() 
t 
buffer = alloc( RECSIZE ); /* transfer buffer */ 
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7* scatch input line */ 
/* CRC mode */ 
/* not really required */ 


line = alloc( 61 )¢3 
crc = 
batch = TRUE; 


rx() receives a char from uart. No timeout checking is performed. 
Also, no status check is done. Bad news if you call this without 
checking status first... Done that way to speed up things. 


ZORBA Version 


return( inp( RXDATA ) ); 


rxstat() returns TRUE if char waiting for input. 


ZORBA Version (interrupt fifo) 


int rxstat() 


return( inp( UARTCMD ) & 2 ); 


tx( ch ) transmits the char 'ch', and calls the CRC/checksum 
update. A timeout is built in for transmission faults. 


ZORBA Version 


VOID. txt. ch) 
char ch; 


register unsigned int i; 


i = 0; 
while( !txstat() ) /* ready? */ 
if( i++ >» MAGIC_NUMBER )/* loop about 3 secs */ 
error( "UART not ready??" ); 
outp( TXDATA, ch ); /* to UART */ 
updcrc( ch ); /* stir CRC a little * / 


/* timing loop counter #*/ 


txstat() returns TRUE if tx register is empty 
ZORBA Version 


wo nnn ee + + + ee ee ee * / 
int txstat() 
{ 

return( inp( UARTCMD ) & 4 ); 
} 
/#----------------------------------- = -- - = - - -- = - = = - = - - 
quit() does exit processing. 
1 dahl cw cto sion ins ba ef te yc eb Bde nfm ems na edi ea as n'a Sh */ 
VOID quit() 
{ 

exit( 0 ); 
} 


End Listing 
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VEDIT 

has been InfoWorld 
acclaimed Software Report Card 
for the last 

five years | VEDIT 1.36 

as the _ : 
Industry Performance * : OC 
Standard Documentation () ©) UJ 
in text Ease of Use Oog 
editing. Error Handling () 0) 0 


Now there’s VEDIT PLUS. 
VEDIT PLUS is the ideal tool for 
program editing and technical writ- 
ing. It gives you every editing func- 
tion you expect, plus it can: 
e Edit multiple files of any size 
e Compare files 
e Be fully customized 
e Perform arithmetic computa- 
tions 
e Be expanded with print format- 
ting & spell checking-correcting 


The power of VEDIT PLUS lets you 
increase your productivity with: 


e Numeric, relational, and logical 
functions 

e If-Then-Else decision making 

e Easy file handling 

e The ability to create prompts for 
user input and menus 

e Special programming features 


Expect a lot from VEDIT PLUS. 
It’s small (23K), fast and it’s from 
CompuView - nationally recognized 
for user support. 


NEEL P EUS e os ib ek Be pet $225 
WE es i eee eee $150 


CompuView 


PRODUCTS, INC. 


1955 Pauline, Ann Arbor, MI 48103 
(313) 990-1299 - (800) 327-5895 
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NS ONAN Excellent 


siash Programming Time in Half! 


With 


FirsTime 


@ Fast program entry through single keystroke statement generators. 


Fast editing through syntax oriented cursor movements. 


Fast development through unique programmer oriented features. 


# 
@ Dramatically reduced debugging time through immediate syntax checking. 
@ 
® 


Automatic program formatter. 


FirsTime is a true syntax directed editor. 


FirsTime ensures the integrity of your programs by 
performing all editing tasks like moves, inserts and 
deletes along the syntactic elements of a program. 
For example, when you move an IF statement, 
FirsTime will move the corresponding THEN and 
ELSE clauses with it. 


Even FirsTime’s cursor movements are by syntax 
elements instead of characters. The cursor automati- 
cally skips over blank spaces and required keywords 
and goes directly to the next editable position. 


FirsTime is a Syntax Checker 


FirsTime checks the syntax of your program 
statements, and also: 


@® Semantics like undefined variables and 
mismatched statement types. 


@ The contents of include files and macro 
expansions. 


® Statements for errors as they are entered 
and warns you immediately. 


FirsTime is a Program Formatter 


FirsTime automatically indents statements as they 
are entered, saving you from having to track indenta- 
tion levels and count spaces. 


FirsTime has Unique Features 
No other editor offer these features: 


The Zoom command gives you a top down view 
of your program logic. 


The View command displays the contents of 
include files and macro expansions. This is 
valuable to sophisticated programmers writing 
complex code or to those updating unfamiliar 
programs. 


FirsTime’s Transform commandlets you change 
a Statement to another similar one with just two 
keystrokes. For example, you can instantly trans- 
form a FOR statement into a WHILE statement. 


The Move at Same Level command moves the 
Cursor up or down to the next statement at the 
same indentation level. This is very useful. For 
example, you can use it to locate the ELSE 
clause that corresponds to a given THEN clause 
or to traverse a program one procedure at a 
time. 


FirsTime is Unparalleled 


FirsTime is the most advanced syntax directed 
editor available. lt makes programming faster, easier 
and more fun. 


TO ORDER CALL (201) 741-8188 


or write: 


Spruce Technology Corporation 


189 E. Bergen Place 
Red Bank, NJ 07701 


In Germany, Austria and Switzerland contact: 


Markt & Technik Software Verlag 
Munchen, W. Germany 
(089) 4613-0 


irsTime is a trademark of Spruce Technology Corporation @ MS-DOS is a trademark of Microsoft Corporation 
M is a trademark of International Business Machines. Inc. @ Turbo Pascal is a trademark of Borland International 
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FULL SCREEN SYMBOLIC DEBUGGER 


“THE SINGLE BEST DEBUGGER 
FOR CP/M-S0O. A TRULY 
AMAZING PRODUCT.” 


LEOR ZOLMAN 
AUTHOR OF BDS C 


Complete upward compatibility with DDT 

Simultaneous instruction, register, stack & memory displays 
Software |In-Circuit-Emulator provides write protected memory, 
execute only code and stack protection. 

Full Z80 support with Intel or Zilog Mnemonics 

Thirty day money back guarantee 

On-line help & 50 page user manual 


ORY SIZ 5. 
SOF TADVANCES — 





P.O. BOX 49473 AUSTIN, TEXAS 78765 (512) 478-4763 


| MasterCard 
| | 
Vic ee OC ee ai 
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information vital to your interests? As a 
subscriber you can look forward to arti- 
cles on Small-C, FORTH, CP/M, S-100, Com- 
piler optimization, Concurrent Program - 
ming and more, delivered right to your 
door. And you'll never miss the issue that 
covers your project. 
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Is $19.97 too 
much to spend 
to avoida 
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Business Software 
magazine is a valuable resource 
that helps you squeeze every 
penny’s worth of potential out 
of your computer system. It is 
written for the business person 
and decision maker who wants 
practical, ‘““hands-on”’ software 
solutions to real problems, 
written in a straightforward, 
jargon-free language. Every 
month, Business Software 
brings you: case studies of 
business computer applications; 
company profiles, including 
who is using what software and 
why; software tutorials that 
explain what the manual left 
out; information on the latest 
products, as well as the 
longtime favorites, all from a 
business perspective. 
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Envoy, Version 1.1 

Company: Artisoft Inc., 2450 E. 
Speedway, Suite 4, Tucson, 
AZ 85719 (602) 327-4305 

Computer: IBM PC family, 16-bit 
compatibles, 8-bit CP/M 

Price: $49.95 

Circle Reader Service No. 144 

Reviewed by David W. Carroll 


The trend in microcomputer software 
is toward high-volume, high-quality, 
low-cost software (under $100). Bor- 
land International pioneered this 
‘‘volks-software” concept with Turbo 
Pascal and Sidekick, and other com- 
panies are now following this path. 

Commercial telecommunications 
software typically costs $200 and 
more, but Artisoft of Tucson, is now 
offering its Envoy communications 
package with versions that run on al- 
most any microcomputer system for 
only $49.95. 

“With over a dozen major com- 
mercial programs available, who 
needs another?” you might well ask. 
First, the price of Envoy represents a 
breakthrough. Second, the program 
is small, fast, and easy to use. Third, 
Envoy offers some unique features. 
Finally, compatible versions are 
available for almost any type of mi- 
crocomputer and operating system. 


Operation 

Envoy is a menu-driven communica- 
tions program. This means that it has 
two modes: command and terminal. 
In command mode, the current menu 
is shown on the screen. In terminal 
mode, you are on line with your serial 
port or modem, and Envoy is trans- 
parent to all keyboard input except 
for your terminal mode “exit”? char- 
acter, usually escape <Esc>. Envoy 


sate eee i ee 
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requires you to set your terminal 
mode exit character when you start 
each session. The program’s main 
menu appears below: 


*** Main Menu *** 


<T> —Smart Terminal 

<E> —ENVOY file transfers 
<X> —XMODEM file transfers 
<P> —Port Parameters 

<U> W— Utilities 


<Ret>— Previous menu 
<Esc> — Exits ENVOY 


Enter your selection —> 


The program offers dumb terminal 
operation, ASCII file send and buffer 
capture, and protocol file transfers. 
Envoy supports both the Ward Chris- 
tensen XMODEM protocol and the 
little known ANSI standard X3.28 
file transfer protocol. 

The ANSI protocol is designed so 
that either computer in a data link 
can act as master while the other is a 
slave. This allows multiple file trans- 
fers and remote system utility opera- 
tion (you can use the remote system’s 
utility menu). The transfer protocol 
is faster than XMODEM and provides 
greater error checking. 

This menu appears when you select 
Smart Terminal: 


*** Smart Terminal *** 


Capture Buffer is Off 


<T>  —Terminal Mode 

<S> —Send Text File 

<M> — Modem Functions 
<O> — Terminal Mode Options 
<C> -—Capture Buffer On 
<B> W— Buffer Utilization 


<W> — Write Buffer to Disk 
<D> — Display Buffer 





<U> — Utilities 
<Ret>— Previous menu 
<Esc> — Exits ENVOY 


Enter your selection -> B 


Capture Buffer 57362 bytes 
Remaining Space 57362 bytes 


[Enter any key to continue] 


Envoy uses an autodial menu and 
even supports simple “script” files for 
autologon. It will support almost any 
modem because of its free-form mo- 
dem command/phone number direc- 
tory. The directory consists of a file 
with entries created using a word pro- 
cessor or editor (like WordStar or ED- 
LIN). A few typical directory entries 
for a Hayes Smartmodem follow: 


Redial [A/I] 
Disconnect [__+ + +_ATHO] 
Information [ATDT1-555-1212] 


Here is a sample directory listing: 


*** Modem Functions *** 


<A> —Redial 

<B> — Disconnect 
<C> — Information 
<D> —ARTISOFT, Inc. 
<E> — CompuServe 


<Ret>— Previous menu 
<Esc> — Exits ENVOY 


Enter your selection —> 


Envoy scripts can include key- 
board control characters, delays, and 
character-matching strings. The spe- 
cial characters *~, _, and | provide 
these features when inserted in script 
entries. Question marks indicate 
strings to match. 

You can set the terminal mode 
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communications parameters, which 
include stripping line feeds, local 
echo mode, and delay of up to 9 sec 
between each line sent for ASCII text 
file transfers: 


*** Terminal Mode Options *** 


<i> =Send LFs.On 
<D> — Delay Lines (0) 
<F> > —.Local Echo On 
<X> W— Change Exit Key 


<Ret>— Previous menu 
<Esc> — Exits ENVOY 


Enter your selection —> 


You may also set port parameters 
(speed, parity, etc.) from within 
Envoy. 

Full operating system utilities are 
available from within Envoy, and 
PC/MSDOS users have full access to 
DOS 2.0 subdirectory commands and 
paths. The program even supports re- 
mote system operation (unattended). 
This menu is for the IBM PC version 
of Envoy PC: 


*F*U tities: *** 


<D> —Drrectory 

<L> W—Log to another disk 
<E> —Erase files 

<T> —Type files 

<C> —Copyafile 

<R> —Rename a file 

<P> —Print files 

<N> —Change directory path 
<S> —Createa directory path 
<X> —Removea directory path 


<Ret>— Previous menu 
<Esc> — Exits ENVOY 


Enter your selection —> 


Envoy is written in assembly code; 
that means it is fast and compact. 
The program takes a total of 7-9K 
disk space, depending on the version. 
That is small enough to put on every 
floppy—not much more space than 
the old standby MODEM7 program 
requires—and Envoy offers many 
more features. 


Evaluation 


Envoy PC operates reliably in all 
modes. My only complaints were re- 
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a ———————______... sueununtntnnntneetetmenteeeeement 


garding the effort required to make 


new directory entries. I found it 
clumsy to exit the program, start up a 
word processor, and enter numbers in 
the directory file. The lack of a real- 
time directory entry mode, similar to 


Overall, the Envoy communica- 
tions programs are well designed, 
easy to use, and versatile. For a rea- 
sonable price, they provide virtually 
every communications feature you 
could require. 





what Crosstalk and Smartcom II of- 
fer, was irritating. I also didn’t like to 





DD) 
reenter the required modem com- 
mands in each directory entry, 
though this is a minor point. 
THE STRUCTURED 






DERIGAS PROGRAMING TOOL 


FOR MODERN TIMES 


e Design your programs right on the screen, using modern 
techniques based on the popular Jackson Structured Program- 
ming method (JSP)! 


e DEZIGN is more than just another flowcharting tool. It is an 
integrated tool for designing and documenting programs and 
for generating ADA, C, PASCAL, and PL/I source code, as well 
as dBASE II and dBASE III command files. 


e DEZIGN enables you to create Data and Program Structure 
Diagrams using the Sequence, Selection (IF-THEN-ELSE), and 
Iteration (DO WHILE) constructs; assign detailed statements 
to the diagrams; and synthesize source code from the control 
logic represented on the diagrams and the detailed statements 
assigned to them. 


°e DEZIGN lists for $200. It runs on the IBM PC, XT, or AT and 
requires 128K RAM, one disk drive, and an 80-column color 
or monochrome display. 


e DEZIGN-PC runs under DOS 2.0, 2.1, and 3.0. 
e DEZIGN-86 runs under CP/M-86 1.1. 


e Want to learn more? Please contact us concerning pricing and 
availability of JSP reference texts and seminars. 


ZEDUCOMP e PO. BOX 68 « STIRLING, NJ 07980 
(201) 755-2262 


dBASE II and dBASE III are trademarks of Ashton-Tate, Inc. 


Circle no. 126 on reader service card. 
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16-BIT SOFTWARE TOOLBOX 


by Ray Duncan 


IBM PC WordStar and the 
HP LaserJet 

We at Laboratory Microsystems re- 
cently purchased an HP LaserJet 
printer to produce our various soft- 
ware manuals. After buying the La- 
serJet, we were dismayed to find that 
it is essentially impossible to configure 
IBM PC WordStar to properly use the 
printer’s boldface, italics, and various 
fonts. WordStar allows the user to 
patch in only four-character escape 
sequences, while nearly every impor- 
tant LaserJet control sequence is five 
bytes or longer. When we contacted 
the HP dealer about this problem, his 
response was, “Well, you’ll just have 
to switch to Spellbinder; it supports all 
the LaserJet capabilities.” 

Because we have around 10 Mb of 
documentation files that we would 
have to convert if we switched word 
processors, this option didn’t sound 
too attractive. My first attempt at 
getting around the problem was to 
write a character filter that read a 
WordStar document file, translated 
the various control codes (such as *B) 
into the proper LaserJet escape se- 
quences, and sent the result to the 
printer. This worked acceptably as 
far as print quality, but it required an 
exit from WordStar whenever you 
wanted to print something, which 
made WordStar’s capability of back- 
ground printing while editing useless. 

It began to look as if we would 
have to face the facts and do some 
heavy-duty disassembly and patching 
of WordStar. On a long shot, I 
dropped a note to MicroPro Techni- 
cal Support, asking them if they 
knew of anyone who had already 
worked out the necessary patches. 
Much to my amazement, I got an im- 
mediate phone call from a nice lady 
at MicroPro who said that a LaserJet 
version of WordStar was already 
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available to licensed users for $25.00. 
I duly sent off my check and in a few 
days received a diskette containing a 
new WS.OVL file and a batch file that 
performs some patches to the 
WS.COM file. 

After following the installation 
steps in the accompanying documen- 
tation, I ended up with a WordStar 
that supports italics, boldface, double- 
strike, underline, over-strike, micro- 
justification, superscripting, sub- 
scripting, variable character pitch, 
variable line height, and multiple 
copies on the HP LaserJet. It’s a little 
slow (only 2-3 pages/min through- 
put) and has a few bugs (a “Y at the 
start of a line makes it go crazy), but it 
works pretty well. You can get this en- 
hancement disk by sending a polite 
letter, including your WordStar ver- 
sion 3.3 serial number and $25.00, to 
LaserJet Technical Support, Micro- 
Pro International Corp., 33 San Pablo 
Ave., San Rafael, CA 94903. 


Microsoft 8086 
MacroAssembler 2.0 
Many moons after Microsoft an- 
nounced version 2.0 of the 8086 Ma- 
croAssembler, it has appeared in the 
IBM Product Centers in the last few 
weeks without fanfare. Along with 
the new, higher version number 
comes a new, higher price ($175.00). 
Silly me. I thought that because I had 
bought version 1 with its zillions of 
bugs I might be entitled to a reduced 
cost update, but the Product Center 
salesman nearly killed himself laugh- 
ing when I brought that up. Finally, 
gritting my teeth and hoping that the 
new version would be a little more ro- 
bust than the old, I hauled out my 
well-worn MasterCard and took 
home a copy. 

If you choose to go the same route, 
what will you get for your money? 





Well, the first thing you get is a Ma- 
croAssembler that has an even more 
severe case of bloat than the first ver- 
sion (the EXE file is 76,544 bytes 
compared to 67,584 bytes for version 
1). The 8087 mnemonics are now 
fully supported, along with most of 
the additional 80286 mnemonics that 
would be used in that CPU’s real 
mode. The performance of the Ma- 
croAssembler has improved consider- 
ably: a 106K source file (approxi- 
mately 3200 lines), which required 
13 min 57 sec to assemble with ver- 
sion 1, is assembled in 4 min 13 sec 
with version 2. 

Version 2 provides a new version of 
the Linker (which has also suffered 
more bloat to the tune of about 6K), a 
documented Library manager, and a 
new program called SALUT (Struc- 
tured Assembly Language Utility), 
which converts an assembly language 
source file containing high-level con- 
trol structures into a source file that 
can be fed to the assembler. Although 
IBM pushes SALUT pretty hard in 
the MacroAssembler manual, I see 
no evidence in the BIOS listings or 
distributed PCDOS assembler source 
files (such as VDISK.ASM) that IBM 
programmers ever use it. Perhaps 
IBM is adopting some of Apple’s poli- 
cies for “‘the rest of us.”’ 

The manual for the MacroAs- 
sembler has been drastically over- 
hauled. The previous ‘“‘encyclopedia” 
format, which devoted a page to each 
of the assembler directives and 8086 
mnemonics with examples, has been 
abandoned. The new manual is heavi- 
ly oriented to operation of the assem- 
bler and associated utilities (every- 
thing is called “sessions” now) and 
provides almost no programming 
guidance whatsoever. A copy of Rec- 
tor and Alexy’s The 8086 Book or the 
Intel iAPX 86 User’s Manual will be 
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duced by publication in DDJ is mine. | * Delete blank lines from a file 
In spite of its brevity, TRIM is a 
fairly sophisticated filter that can Documentation for the use of 
perform one of several operations: TRIM appears in the beginning of the 
source listing itself. You can use 
° Exclude all the characters outside a | TRIM in combination with SORT and 
given range of columns from each | various other commands by means of 
line of a file the Unix-like pipes of MSDOS 2.x to 
¢ Exclude all the characters inside a | perform complex operations. For ex- 
given range of columns from each | ample, the following command line 


indispensable to people who start out 
with the new MacroAssembler and 
no previous experience. 

Some of the known bugs in version 
1 appear to have been fixed; these in- 
clude the operand order in the SHL 
and SHR operators, the XOR that 
used to work like OR, the packed 
decimal data generated by the DT 
pseudo-op, the failure of DUP to work 










































properly inside the invocation of a line of a file will isolate the filename and exten- 
STRUC, and the lack of error mes- | ¢ Delete trailing blanks from each | sion from each line of a directory list- 
sages and generation of “funny” op- line of a file ing, sort the list, and leave the result 


codes for some nonexistent instruc- 
tions (such as CMP ES,0Q). Error 
detection (and the quality of the error 
messages) seems generally improved. 

Some bugs, however, remain. I’ve 
provided a few examples in Listing 
Two (page 104). A major problem 
seems to be inconsistent handling of 
signed and unsigned values by the 
logical operators. This is “explained” 
to some extent by a comment in the 
manual on page 2-28: “When rela- 
tional operators are used, results are 
produced by comparing 17-bit signed 
numbers, where the 17th bit can con- 
tain only a sign bit.”’ This accounts 
for the behavior of the LT and GT op- 
erators, but if it were strictly true, the 
expression “—l1 EQ.OFFFFH” would 
return a false flag (which it doesn’t, 





Advanced 
Screen Management 
made easy 


Now a professional software tool from 
Creative Solutions. 


WINDOWS FOR C™ 


More than a window display system, 
WINDOWS FOR C is a video tool kit for all 
screen management tasks. 


@ Pop-up menus and help files 
m@ Auto memory management 
@ Keyboard interpreter 


as you can see by the listing). Any- @ Word wrap 
way, it’s a mystery to me why Micro- @ Auto scroll 
soft thought it should support within @ Highlighting 


expressions a 17-bit data type that 
has no physical equivalent in the 
8086 processor family. Wouldn’t it 
make more sense to have the assem- 
bler evaluate expressions to the same 
results that you would get with in-line 
machine code? 


@ Color control 
@ Overlay and restore 


@ Plus a library of over 50 
building block subroutines 


Designed for enhanced portability. 
Easy to learn, easy to use. 


Once you've tried WINDOWS FOR C, 


The TRIM Filter ; 
you’ll wonder how you ever managed without it. 


In the last few months, we have print- 
ed three new “filters” for MSDOS: 
CLEAN, TEE, and TK. In this 
month’s column, we print another fil- 
ter, named TRIM, contributed by A. 
K. Head of Melbourne, Australia 
(Listing One, page 96). I have taken 


Full support for IBM PC/XT/AT and compatibles, plus interfaces for non-IBM computers; 
Lattice C, CI-C86, Mark Wm. C, Aztec C, Microsoft C, DeSmet C (PC/ MSDOS), 


NEw ve: a -—_——" Creative Solutions 
BEPACES ena Lc) 21 Elm Ave., Box T4, 


Topview compatible. | Ste 
WINDOWS FOR C $195 __ ee - Richford, VT 05476 
os 











the liberty HE retyping and reformat- (specify compiler & version) i 1 | 802-848-7738 

; vat Demo disk and manual $ 30 nvioae _| Master Card & Visa Accepted 
ting the program from his original (applies toward purchase) ST “11 1| Shipping $2.50 

listing, and I have added some error Full source available. VT residents add 4% tax. 





messages; hence, credit for the con- No royalties. 


cept and implementation should go to 
Mr. Head, while blame for any bugs 


or other deficiencies specially intro- Circle no. 27 on reader service card. 
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in a file named SORTED.DIR: source for all the programs printed in | between 6 PM and 9 AM, Pacific 
this column, as well as many other | Time, on weekdays and for 24 hours 


A>DIR:i TRIM 1,12:1SORT useful MSDOS utilities, from the | on weekends and holidays. DD} 
>SORTED.DIR Laboratory Microsystems Bulletin 
Reader Ballot 
: Board System at (213) 306-3530 Vote for your favorite aatueaiahieie 
Incidentally, you can download the | (300 or 1200 baud). This BBS is up Circle Reader Service No. 194. 


SE ta a et res SO Ee ae eae 


16-Bi f Toolbox (Text begins on page 94) 
Listing One 


name trim 
page 55,132 
title 'TRIM - excerpt lines of a file! 
TRIM --- excerpts selected columns from each line 
of a file and writes them to the selected 
output device or file. 
A "filter" for MS-DOS or PC-DOS version 2 or higher, 
after the fashion of Unix. Reads from the standard input 
(redirectable) and writes to the standard output (redirectable). 
Error messages are directed to the standard error device. 
TRIM can be (and usually would be) used in a pipe, e.g. 
| TRIM 7,45 | 


transmits only the characters in columns 7 to 45 (inclusive) 
of each line. A minus sign reverses the action, e.g. 


| TRIM -7,45 | 
transmits all characters except those in columns 7 to 45. 
Special actions: 


[PRIM Or4 4 deletes trailing spaces from lines, and 
| TRIM -O | also discards empty lines 


By A. K. Head, 6 Duffryn Place, Melbourne, Australia 3142 
reformatted and error handling added by Ray Duncan 


-e “ee Se ~e Se Se Se Se Oe “8 SO TSO TO “SO SO Me TO NO Te SO Se Se Me Ne NO Se TO Te We 


command equ 80h ; buffer for command tail 
fcbl equ 5ch ; Gefault file control block #1 
fcb2 equ 6ch +; Gefault file control block #2 
buflen equ 16384 ; buffer length, alter to taste 
ex equ Odh +; ASCII carriage return 
Tf equ Oah ; ASCII line feed 
ff equ Och ; ASCII form feed 
eof equ Olah ; End-of-file marker 
tab equ 09h ; ASCII tab code 
blank equ 20h ; ASCII blank 

; DOS 2.x pre-defined handles 
stdin equ 0000 ; standard input file 
stdout equ 0001 ; standard output file 
stderr equ 0002 ; standard error file 
stdaux equ 0003 ; standard auxilliary file 
stdprn equ 0004 ; standard printer file 
cseg segment para public 'CODE'! 


(Continued on page 98) 
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SMALL} FOR IBM-PC 





Small-C Compiler Version 
2.1 for PC-DOS/MS-DOS 
Source Code included 
for Compiler & Library 
New 8086 optimizations 
Rich I/O & Standard Library 


ee 
CBUG SOURCE LEVEL DEBUGGER FOR SMALL C 


Break, Trace, and Change 
variables all on tne 
source level 

Source code included 


Datalign 


11557 8th Ave. ~~ N.E. 
Seattle, Washington.98125 


(206) 367-1803 


ASM or MASM is required with compiler. 

include disk size (160k/3 20k), and DOS version with order. 

VISA & MasterCard accepted. Include card no. & expiration date. 
Washington state residents include 7.9% sales tax. 

IBM-PC & PC-DOS are trademarks of international Business Machines 
MS-DOS is a trademark of Microsoft Corporation. 


Circle no. 6 on reader service card. 








Due to popular demand, Dr. Dobb's Journal has reprinted 
its most-asked-for C compiler articles by Ron Cain and J. E. 


Hendrix, each for only $5.00. 


Ron Cain’s C compiler from sold-out 1980 issues #45 and 
#48 includes “A Small C Compiler for the 8080s” and “Run- 
time Library for the Small C Compiler.” 


The J. E. Hendrix reprint includes part two of “Small-C 
Compiler v.2” from sold out issue #75 and completes the 
first part of the compiler article from issue #74 which is 
included in Dr. Dobb’s Bound Volume 7. 


To Order: Enclose $5.00 for each copy with this coupon 
|, and send to: Dr. Dobb's Journal, 2464 Embarcadero Way, 
= Palo Alto, CA 94303 


Please send copylies) of the Ron Cain Reprint, and 


____copy(ies) of the J. E. Hendrix reprint to: 


/ address 


| city state zip 
ALL REPRINT ORDERS MUST BE PREPAID. 


Please allow 6-9 weeks for delivery. 


il Ed 


SuperFast Software Development Tools 


INCREASE YOUR PROGRAMMING EFFICIENCY 





with high-performance software development products from SLR Systems. 
No other tools approach the speed or flexibility of the SLR Systems line. 


“Z80ASM is an extraordinary product...”, 
Robert Blum, Sept. 84 DDJ 


ASSEMBLERS 


e RMAC/M80 macros e Math on external 
e Nested INCLUDES & words and bytes 

















conditionals e Define symbols from 
e 16 char. labels on console 
externals e Generate COM, HEX, 





SLR-REL, or Micro- 





e Built in cross- 
reference soft-REL files 


e Optional case e Time & Date in listing 
significance e Over 30 configure 
e Phase/dephase options 















Z80ASM -full Zilog Z80 .......-.---+++-- $125 

NEW! Z80ASM+¢ -all tables virtual .........--.-- $195 
NEW! SLRMAC -full Intel 8080, with 

Z780.LIB extensions internal .......-.-- $125 

NEW! SLRMAC+¢ -all tables virtual .........---- $195 







280 CPU, CP/M compatible, 32K TPA required. 


“780ASM...a breath of fresh air...”, 
Computer Language, Feb. 85 


a 


ummm) C.O.D., Check or Money Order Accepted 






«in two words, I’d say speed & flexibility”, 
Edward Joyce, Nov. 84 Microcomputing 


LINKERS 


e Links SLR & M80 e Three separate 












format files address spaces 
e Output HEX or COM e Load map and 
file SID/ZSID .SYM file 












SLRNK+ includes: 
e All tables overflow to e Works with 





disk FORTRAN & BASIC 

e HEX files do not fill e Generate PRL & SPR 
unused space files 

e Intermodule cross- e Supports manual 
reference overlays 

e EIGHT separate e Full 64K output 


address spaces 


SLRNK -fastest memory based ......... $125 
NEW! SLRNK+ -full featured virtual .........-. $195 
Combo Paks available from $199. - $299. 
For additional information contact SLR Systems 


1-800-833-3061, in PA (412) 282-0864 
1622 N. Main St., Butler, PA 16001 * Telex 559215 


L R_W_Systems 


Circle no. 78 on reader service card. 






16-Bit (Listing continued, text begins on page 94) 
Listing One 


assume cs:cseg,ds:cseg 


org 100H ; start .COM at 100H 
start: jmp near ptr trim 
paraml dw 0 ; command parameter #1 
param2 dw 0 ; Command parameter #2 
sign dw 0 ; nonzero if "=" in command 
count dw 0 ; column count, current line 
topin dw 0 + Chars in input buffer - 1 
char db 0 ; Current character 
trim proc far 
xor si,si + initialize buffer pointers 
xor aida 
mov bx, fcb1+1 +; addr of parsed parameter 1 
call getprm ; convert it 
cmp ax,0 
je trunc ; zero parameter, go truncate 
+; trailing blanks etc. 
mov paraml,ax + save first parameter 
mov bx, fcb2+1 ; addr of parsed parameter 2 
cmp byte ptr [bx],blank ; is it present at all? 
jne trimo ; yes, proceed 
jmp err3 ; no, exit (Continued on page 100) 












C Programmers: 
File System Utility Libraries 


source Code Included, No Royalties, 
Powerful & Portable. 


BTree Library | $75.” 


e High speed random and sequential access. 

¢ Multiple keys per data file. 

¢ Up to 16 million records per file. 

e Full documentation and example programs included. 


ISAM Driver $40,°° 


Works with the BTree Library. 

¢ Greatly speeds application development. 

e Combines ease of use of database manager with flex- 
bility of programming language. 

e Supports multi key files and dynamic index definition. 

e Very easy to use; fully documented: example pro- 
grams included. 


Both products 


Are written entirely in K&R C. 
Come with complete source code. + $3.00 Shipping & 
Are free of any royalty charges. Handling Charge. 


Banat 


CALENDAR/CLOCK 
No $69 KIT 
W WITH Fj 
DA FILE 
TE STAMPIN C1 
Works with any Z-80 based computer. 
Currently being used in Ampro, Kaypro 
2, 4 & 10, Morrow, Northstar, Osborne, 
Xerox, Zorba and many other computers. 
Piggybacks in Z80 socket. 
Uses National MM58167 clock chip, as 
featured in May '82 Byte. 
Battery backup keeps time with CPU 
power off! 
Optional software is available for file 
date stamping, screen time displays, 
etc. 
Specify computer type when ordering. 
Packages available: | : 
Fully assembled and tested $99. 
Complete kit $69. 
Bare board and software $29. 
UPS ground shipping $3. 


MASTERCARD, VISA, PERSONAL CHECKS, 
MONEY ORDERS & C.O.D.'S ACCEPTED. 
N.Y. STATE RESIDENTS ADD 82 SALES TAX 


Pa KENMORE 
| COMPUTER 
ge a TECHNOLOGIES 


P.O. Box 635, Kenmore, New York 14217 (716) 877-0617 






















For more information call: 
1277 Pallatine Drive 


Oakville, Ontario, Canada 
L6H 121 
(416) 844-2610 


Credit cards accepted. Dealer inquiries invited. 





Circle no. 30 on reader service Card. Circle no. 89 on reader service card. 
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DD Classifieds 








PCBTAM 


Altows an IBM PC or compatible to perform 
BISYNC communication. PCBTAM is a gener- 
ai purpose interrupt driven access method us- 
able by any Microsoft ens. Requires IBM 
BSCA card and PC-DOS. 

¢ Source or object license 

+ Asynchronous version available (PCATAM) 

¢ Modifiable for other USARTS. 
For details write: 





























ELE EE, 


SYMBIOTIC 


s Pretoco!l Cenverters, Inc. 
1011 Clifton Avenue, Cifton New Jersey 07013 
6201) 777-6454 





DriveLiner 


Drive Alignment Test Program for CP/M 
2.2/3.1 With Dysan 8” SSSD Diagnostic 
Disk $65 check/MO postpaid Chandler 
Software, 273 W Shore Dr, Marblehead MA 
01945 (617) 631-4685 


Dr. Dobb’s Journal 
Subscription Problems? 


No Problem! 
Give us a call and we'll straight- 
en it out. Today. 


Outside CA: 800-321-3333 
Inside CA: 619-485-9623 or 6947 



















TECMAR GRAPHICS LIBRARY 


TEKMAR lets you do high-res graphics on 
your TECMAR Graphics Master. Features 
windowing, viewporting, clipping, axis rota- 
tion. Similar to Tektronix graphics. Includes 
screen dump/restore, Epson screen print, 
support for HP and Western Graphtec plot- 
ters. Includes three curve-fitting programs 
and graphics application SOURCE CODE. 
Requires MS-FORT 3.20, or Lahey F77L. 
Price: $195. 

ADVANCED SYSTEMS CONSULTANTS, 
18653 Ventura Boulevard, Suite 351, 
Tarzana, California 91356 

(818) 990-4942 


ECLIPSE SYSTEMS 


AZTEC C65 + ProDOS 

Use Aztec C DOS 3.3 software under Pro- 
DOS. Run programs without relinking. Sys- 
tem includes recursive Shell, support for 
pseudo-code, vi like editor with macros, li- 
brary upgrade and source code. Requires 
ProDOS user's disk. $49.95. 

Eclipse Systems, 223 Matthew Rd., Marion, 
PA 19066. (215) 667-8354 


OWINGS MILLS 


OHIO SCIENTIFIC/ISOTRON AND COM- 
PATIBLE COMPUTERS! Users MUST 
read PEEK (65). Published monthly exclu- 
sively for above users. $19/yr U.S. $26/yr 
Canada; P.O. Box 347, Owings Mills, MD 
21117; (301) 363-3268. 
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is pleased to announce the 
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OUT OF THE CLOSET? 


DISKETTES & DUPLICATION 


Large or Small - Let’s Talk!! 












5%" DISKETTES 


SS/DD 99° EA. neat | 0 EA. 
Minimum order 250 disks. 


8” - Color Jackets - 3%" CALL!! 


Hundreds of professionals 
can’t be wrong!!! 





800-437-0500 
800-435-7400 In CA 
(408) 262-3008 


CALL 
TODAY!! 





4 
780 Trimble Rd. @ Suite 608 
San Jose, CA 95131 





DDJ Classifieds 


RATES: DISPLAY ADVERTISERS: Price per column inch $100. Ad must run in 3 


consecutive issues. 


NATIONAL PUBLIC DOMAIN 


Why reinvent the wheel? 

Public Domain Software isn't copyrighted, 
so no need to pay license fees for thou- 
sands of routines; business-utilities-dbase. 
Complete, latest issue user group disks 
available to rent 'n copy at your leisure. 
Send $5.00 for a postpaid directory disk or 
a SASE to National Public Domain Soft- 
ware, 1533 Avohill Dr., Vista, CA 92083 or 
(619) 727-1015. 


W.B. SOFTWARE DEVELOPMENT 


BROWSE for CP/M-68K 

for looking at any CP/M-68K file 
scroll up, down, left, right 

powerful FIND (search) command 
online HELP, PFKEYS, TABS, PRINT 
100% 68000 assembler—ASCIl, HEX 
ANSI 3.64 & other terminal types 
$49.95 US. Visa, M/C, money order. 
WB Software Development, 
112-Oakhampton PI. SW, 

Calgary, AB, 

Canada T2V 4B2 (403) 238-3216 


MICRO COMPUTING SERVICES 


CBTREE FOR C PROGRAMMERS 
Provides enhanced file handling calls di- 
rectly into C programs. Maintains balanced 
B-trees, supports unlimited number of keys 
and key lengths. Fast, Flexible, Efficient. No 
royalties. Source Code Incl. $179. MICRO 
COMPUTING SERVICES 2009 Hileman 
Road Falls Church, VA 22043 (703) 893- 
0118 





Offering low cost 
advertising reaching 
thousands of computer 
programmers and 
professionals each 
month. Departments to 
choose from include: 


LINE ADVERTISERS: Price per line $12 (35 characters per line including 
spaces). Minimum of 5 lines. 3 consecutive issues. Add $3 per line for 
boldface type. Add $25 if a background screen is desired. 
DISCOUNTS: Frequency discounts for 6 consecutive ads (less 7%) and for 12 
consecutive ads (less 15%). 
MECHANICAL REQUIREMENTS: Camera ready art or typewritten copy only 
(phone orders excepted). Display: Specify desired size, include $20 if 













































Software reduction is required. Line: Specify characters in boldface, caps. Allow 6 
Hardware weeks for publication. 
Accessories/Supplies PAYMENTS: Full payment in advance. Check, money order, Visa, M/C, AmEx. 

Career Opportunities 
Services Run this ad in _____ issues 

User Groups. Special Size: col x inches or 1 col x lines 

categories are also Payment by: ______ check _______ m/o Visa M/C _____. AmEx 

available. Card # Exp Date 


City 
Phone Current Subscriber 


Mail to or phone Alex Williams, DDJ Classifieds, 2464 Embarcadero 
Way, Palo Alto, CA 94303 (415) 424-0600 


















16-B1 f (Listing continued, text begins on page 94) 
Listing One 


trimo: 


triml: 


trim2: 


trim3: 


trim4: 


trims: 


trunc: 


truncl: 


Crunc?: 


trunc3: 


100 


Call 
mov 
cmp 
jnb 
jmp 


mov 


inc 
call 
mov 
and 
cmp 


mov 
cmp 
jne 


cmp 


jb 
cmp 


ja 


call 
jmp 


cmp 


jb 
cmp 


jmp 


Cat. 
call 
call 


jmp 


mov 
xor 


call 
mov 
and 
cmp 


mov 
mov 
inc 
cmp 
je 

mov 
jmp 


xor 
call 
cmp 


getprm 
param2,ax 
ax,paraml 
triml 
err3 


count, 0 


count 
cin 
al,char 
al,0O7fh 
aii ,P 
trim5 
ax,count 
sign,0 
trim4 


ax,paraml 


trim2 
ax, param2 
trim2 


cout 
trim2 


ax,paraml 


trim3 
ax, param2 
trim3 
trim2 


cout 
cin 
cout 
triml 


count, 0 
bp,bp 


cin 
al,char 
al,0O7fh 
al,cr 
trunc3 
al,char 


=e “es ™@e 


=e 


=e ™e “e ~e ~e Se “ee ~e Ve MO We WS VO =e ~e 


=e 


=e se VE =e =@ 


=e ™~e 


=e *e =e Ve 


™-=e ®™e %“e %e We 


=e ™~e 


e@ ™"e %“e %e %*e We 


’ 


convert it 
Save 2nd parameter 
is end column < start column? 


yes, exit with error message 


starting a new line, 
initialize column counter 


count characters 

read a character 

is it carriage return? 
(ignore high bit in case 
this is Wordstar file) 

yes, found end of line 
fetch current char count 
is this include or.exclude call? 
jump, -, exclude range 

proceed, +, include range 
is column counter within 

desired range? 

no, discard this char. 


no, discard this char. 


yes, use this character 
get next char. 


is column counter outside 
of excluded range? 
yes, use this character 


yes, use this character 
no, discard this character 


found end of line 

write carriage return 
read presumed line feed 
write line feed 


come here if zero parameter 

to delete trailing blanks from 
all lines. If - sign was in 
command parameter, also delete 
empty lines completely. 


initialize column counter 
init line pointer 


read a character 
is it carriage return 
(ignore high bit in case 
this is Wordstar file) 
yes, go process end of line 
transfer char. to forming line 


byte ptr ds:[line+bp],al 
b 


char,blank 
trunc2 
count, bp 
trunc2 


bp, bp 
Civi 
count,0O 


=e *e eS Ee 


=e =e te 


is character a space code? 
yes, get next char 

no, update column count 
get next char. 


text string now in LINE 


discard line feed 
was line empty? 
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jne trunc4 > no, go output it 
cmp sign,0 > deleting empty lines? 
jne truncl ; yes, discard this one 
jmp trunc5 > no, send cr-lf sequence 
trunc4: ; now transfer LINE to BUFOUT 
MOV al,byte ptr ds: [(bpt+tline] 
mov char,ai ; get next char and 
call cout ; send it to output 
inc bp 
cmp bp, count ; entire line sent yet? 
jb trunc4 ; no, send another char 
trunc5: mov char,cr ; send carriage return 
call cout 
MOV char, if * and line feed 
call cout 
jmp truncl 
exit: cmp ai,0 ; output buffer empty? 
je exitl ; yes 
call outbuf ; no, flush it 
exitl: mov ax,4c00h : exit with return code=0 
int 21h ; if no errors were encountered 
err: ; print error message and exit. 
: DS:DX = addr of message 
; CX = length of message 
; AL = return code 
push ax ; save return code 
mov ah,40h ; function 40 = write 
mov bx, stderr > handle for error output 
int 21h 
pop ax ; retrieve return code 
mov ah,4ch ; function 4C = exit 
int 21h 
errl: mov dx,offset errlmsg ; print "output device error" 
mov cx,errllen 
mov Bd. vik ; return code = l 
jmp err 
err2: mov dx,offset err2msg ; print "disk is full". 
mov cx,err2len 
mov al,2 * return code = 2 
jmp err 
err3: mov ax,offset err3msg ; print "bad parameter" 
mov cx,err3len 
mov al,3 * return code = 3 
jmp err 
err4: mov dx,offset err4msg ; print "input device error" 
mov cx,err4len 
mov al,4 ; return code = 4 
jmp err 
trim endp 
cout proc near ; output contents of "char" 
; with autobuffering 
mov al,char 
mov byte ptr [ditbufout],al 
Linc di 
emp di,buflen : buffer full yet? 
jb coutl 
call outbuf ; write buffer 
coutl: ret ; back to caller 
cout endp 
outbuf proc near ; write buffer to std output 
mov ah,40h > function 40 = write 
mov bx, stdout ; predefined handle 
mov ex, ai : number of characters 
lea ax, bufout + DS:DX = buffer addr (Continued on next page) 
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16-bit (Listing continued, text begins on page 94) 


Listing One 
int 21h ; request DOS service 
31¢ errl ; jump, device write error 
cmp ax,@i | 
jne err2 ; jump, disk is full 
xor ai,di + initialize output buff pointer 
ret ; back to caller 


outbuf endp 


cin proc near + input next char with buffering 
inc si +; bump input buffer pointer 
cmp si,topin ; buffer exhausted? 
jbe cin2 ; no, jump 
mov ah,3fh ; yes, read some more data 
mov bx, stdin ; predefined handle 
mov cx,buflen ; Max length to read 
lea ax, bufin ; DS:DX = input buffer addr 
int 21h ; request DOS service 
7 err4 ; jump, input device error 
cmp ax,0 ; end of file? 
jne cinl 
jmp exit ; yes, goto success exit point 
Gints dec ax ; save offset of top of data 
mov topin, ax 
xor si,si zero input buffer pointer 
Cin2: mov al,byte ptr rea ebeens 
mov char, al ; get next char 
ret 
cin endp 
getprm proc near ; convert numeric parameter to 
; binary and return it in Ax 
xor ax,ax ; initialize forming answer 
mov oD, 7~Bx) ; get first char 
cmp cl,'- ; is it minus sign? 
jne getp2 ; no, jump 
inc sign ; yes, set flag and 
getpl: ince bx + bump command string pointer 
; past the "-" sign 
mov cl, [bx] ; get next char 
getp2: cmp mip e? ; at least 1 legal digit? 
jb getp6 ; no, exit 
cmp ez, +S" 
ja getp6 ; no, exit 
jmp getp4 
getp3: inc bx ; advance through string 
MOV cl, [bx] 
cmp G1,.*0" ; Make sure legal digit 0-9 
jb getp5 + not digit, jump 
cmp o1, 'S2 
ja getp5 + not digit, jump 
mov Gi,10 ; previous answer * 10 
mul dal 
getp4: sub cl,*0" +; add in the new digit 
xor ch,ch 
add ax,cx 
cmp ah,0O ; new answer > 255? 
je getp3 ; no, keep converting 
jmp err3 ; yes, illegal parameter, exit 
getp5: cmp byte ptr[bx], blank ; if not digit, must be blank 
jne getp6 ; exit, bad parameter 
ret back to caller 


getp6: jmp err3 ; «+. Since too far to reach 
getprm endp + Girect with conditional branch 


errlmsg db cr,it 
db ‘trim: output device error' 
db cr;1ft 
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errllen equ. (this byte)-(offset errlmsg) 


err2msg db CF, if | 
db ‘trims disk is full..' 
: db CF ,.it 
err2len equ (this byte)-(offset err2msg) 
err3msg db Gr, it 
ab ‘trim: bad parameter' 
db Gr, tT 
err3len equ (this byte)-(offset err3msg) 
’ err4msg db er, Lf 
db ‘trim: input device error' 
db or, Ef 
err4len equ (this byte)-(offset err4msg) 
bufin equ this byte ; data is read here 
; from the standard input 
bufout equ bufint+buflen ; data to be written to 
; standard output is built here 
line equ bufout+buflen ; temporary line buffer 
cseg ends 
end start 


End Listing One 


(Listing Two begins on next page) 


AVAILABLE 


DDJ BACK ISSUES 


Archive files 
AUtomaticaify 
Under CP 44 80 
and CP M4 gg 


TO ORDER: send $3.50 per issue to: Dr. Dobb’s Journal, 2464 Embarcadero Way, Palo Alto, CA 94303. 


i i a ca aa ites eninnnetpeepdsprtcesahipgennst einen SES 
Name 


Be i lat lal er eet renee erase 


Address 


City 
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16-Bi f (Listing continued, text begins on page 94) 
Listing Two 


co ~~ O&O OM -m GC BY Fe 


_—_ PRP Na a tO RO ORD NO RD EY RO RO RO BRO BRD ht RH Bh Bm Pe he oe oe ok oe 
a FN NY KF OW WON MO SNM HK OW WQ HM HH ww WARS OO ow BI mM ON fe UO RD Me 


0000 


0100 


0100 
0102 
0104 
0106 


0108 
010A 


010C 
O10E 
0110 
0112 


0114 


0117 


0010 
Q118 
0110 
0120 
0123 
0126 


0129 


0001 
0001 
0002 
0002 


FFFF 
0000 


FFFF 
0000 
0000 
FFFF 


30 0000 


30 0000 


83 £B OA 
83 EB 00 
83 EB Of 
83 EB 00 
83 EB OF 


nane  optest 

page 55,132 

title ‘OPTEST -- test MASH bugs’ 
; Demonstrate some anomalies in the Macro Assembler y. 2. 
: This was run on MASN.EXE file dated 7-18-84 


cseg segnent para public *CODE’ 
assume cS:cseg,dstcseg,esscseg 


org 00h 
; SHR and SHL don’t distinguish between signed and unsigned data 
dy -2 shr 1 
dw 2 shr 1 
dy -1 shl 1 
dw 1 shl 1 


; EQ and NEQ seem to recognize the decimal and hex equivalents... 
dw -1 eq Offffh 
dw -1 ne Offffh 


s but the comparison operators don’t ... 


dsl gt -l 
du 1 gt OF ff th 
wollte 
do Ut Offfth 


; 
; on NOW instructions, if source operand is missing, no 
; error message is produced and machine code is generated 
; a5 though the source operand were an immediate "0". 
chp aX, 


; generates the same machine code as 

cmp =—Ssaax, 0) 
; Assembler generates erroneous machine code when last digit of a 
; literal is "B" or “D" and the default radix is hexadecinal 


radix 16 
sub bx, 0a 
sub bx,0b =; generates sane code as SUB BX,0 
sub bx,0c 
sub bx,0d 3 generates same code as SUB BX,0 
sub bx, Qe 
cseg ends 
end 


End Listings 
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ECOSOFT@INC. 


A FULL C @ : 
COMPILER 4Q95 
FOR 


The Ecosoft Eco-C88 compiler for the 8088 and MSDOS is going to set a new 
standard for price and performance. Consider the evidence: 





For $10.00 more, we will include the source code for the C library functions 
(excluding transcendentals). For an additional $15.00, we will include our 
ISAM file handler in OBJ format (as published in the C Programmer's 
library, Que Publishing). The discount prices for the library source and ISAM 
only apply at the time the compiler is purchased. Please add $4.00 to cover 
postage and handling. To order, call or write: 


Ecosoft Inc. 

6413 N. College Avenue 
Indianapolis, IN 46220 
(317) 255-6476 


Eco-C (Ecosoft), MSDOS (Microsoft), UNIX (Bell Labs), CP/M (Digital Research), Z80 (Zilog), 8086, 8087, 8088 (Intel). 





Eco-C88 |i 1 


eb., 1985, pp 





73-102. Reprinted by permission. 


The Eco-C88 compiler is a full K&R C compiler that supports all data types and 
operators (except bit fields). Now look at the other features we offer: 

* 8087 co-processor support using a single library. If you install an 8087 
later, the software will use it without having to recompile. 

* A robust standard library with over 150 functions, including trans- 
cendentals, color, and others. 

% OBJ output for linking with the MSDOS linker (LINK). 

% Error messages in English — no cryptic numbers to look up. A real plus 
especially if you're just getting started with C. 

* Easy-to-read and complete user's manual. 

* Works with all IBM and compatibles running MSDOS 2.0 (or later). 

* Plus many other features. 





= 


Circle no. 35 on reader service card. 






@ FORTH programs are_ instantly 
portable across the four most popular 
microprocessors. 

@ FORTH is interactive and conver- 
sational, but 20 times faster than 
BASIC. 

@ FORTH programs are highly struc- 
tured, modular, easy to maintain. 

@ FORTH affords direct control over 
all interrupts, memory locations, and 
i/o ports. 

@ FORTH allows full access to DOS 
files and functions. 

@ FORTH application programs can 
be compiled into turnkey COM files 
and distributed with no license fee. 

@ FORTH Cross Compilers are 
available for ROM’ed or disk based ap- 
plications on most microprocessors. 


Trademarks: IBM, International Business Machines 
Corp.; CP/M, Digital Research Inc., PC/Forth+ and 
PC/GEN, Laboratory Microsystems, Inc. 





























TOTAL CONTROL: 


FORTH: FOR Z-80®, 8086, 68000, and IBM® PC 
Complies with the New 83-Standard 
GRAPHICS e GAMES e COMMUNICATIONS. ROBOTICS 
DATA ACQUISITION e 


PROCESS CONTROL 


FORTH Application Development Systems 
include interpreter/compiler with virtual memory 
management and multi-tasking, assembler, full 
screen editor, decompiler, utilities and 200 page 
manual. Standard random access files used for 
screen storage, extensions provided for access to 
all operating system functions. 


Z-80 FORTH for CP/M® 2.2 or MP/M II, $100.00; 
8080 FORTH for CP/M 2.2 or MP/M Il, $100.00; 
8086 FORTH for CP/M-86 or MS-DOS, $100.00; 
PC/IFORTH for PC-DOS, CP/M-86, or CCPM, 
$100.00: 68000 FORTH for CP/M-68K, $250.00. 


FORTH + Systems are 32 bit implementations 
that allow creation of programs as large as 1 
megabyte. The entire memory address space of 
the 68000 or 8086/88 is supported directly. 


PC FORTH + $250.00 
8086 FORTH + for CP/M-86 or MS-DOS $250.00 
68000 FORTH + for CP/M-68K $400.00 


Extension Packages available include: soft- 
ware floating point, cross compilers, INTEL 
8087 support, AMD 9511 support, advanced col- 
or graphics, custom character sets, symbolic 
debugger, telecommunications, cross reference 
utility, B-tree file manager. Write for brochure. 





































yi ; 
Laboratory Microsystems Incorporated 
a iy Post Office Box 10430, Marina del Rey, CA 90295 Ss 
Phone credit card orders to (213) 306-7412 
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JOHN D. OWENS ASSOCIATES JOHN D. OWENS 6 


LARGE 


DISCOUNTS FROM 
JOHN D. 


eS 


ASSOCIATES 


MACROTECH MI-286: 80286/Z-80H 
DUAL PROCESSOR 5-100 CPU 
BOARD:...$876 MSR RAM: 120NS5, 
high-speed dynamic RAM, Works with 
CompuPro 8085/8088; MI-286 and others: 
256K .. $556 512K... $716 STATIC 
RAM: Substitute for RAM 22 and RAM 23: 
POE aeE Ge ok seh oe ee os $960 
OIA SPC ick Cees $1,800 


EMERALD SYSTEMS HARD DISK 
and TAPE SUBSYSTEMS 

High capacity! Up to 280 MB! Emerald has 
overcome the 32MB DOS limitation! Mul- 
tiple volumes per physical drive. Back up 
and restore utilities. 


HOUSTON INSTRUMENTS: Plot- 
ters: DMP 41 OR 42:.. $2,397, DMP 29: 
... $1,838 DIGITIZERS: DT11 .. $694; 
DTH os $750; DTIIAA..... $714 
New! 14 pen DMP 51 and 52: ... $4,796 


ILLUMINATED TECHNOLOGY 
S-100 COLOR GRAPHICS:...... $1,116 


NEC APC III: 80816 MS-DOS system w/ 
spectacular graphics:...... 20% off list 
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S-100IMB: .. $1,472 S-1002MB:.. $2,091 


LOMAS: 80286, CCP/M and MS-DOS S- 
100 Systems with COLOR GRAPHICS for 
IBM-PC compatibility. 








RACTER: Interactive conversational 
software for IBM-PC. Jan 1985 Scientific 
American called RACTER, “.. . extremely 
funny.” RACTER is light years ahead of 

Ta oh Seg aioe are vie $69.95. 


MIST + CONEXUS: Integrated 
software for IBM-PC combining telecom- 
munications, text processing, data base 
management. 


BIG DISCOUNTS on COMPUPRO, 
IMS, BYAD, many others. Prices & avail- 
ability subject to change without notice. 


S>LUIDOSSU SNIMO ‘G NHOf SdLUIDOSSY SN3IMO “Cd NHOf S3LUIDOSSY SNSMO ‘dd NHOf S3LUIDOSSY SNIMO ‘Cd NHOf S3LYUIDOSSU SN3MO “Cd NH 








WRITE OR CALL FOR PRODUCT LITERATURE. 


WE EXPORT: Overseas Callers: TWX 710 
588 2844 (OWENSASSOC NYK). EASY 
LINK MAILBOX ADDRESS: 62840 768. 


JOHN D. OWENS ASSOCIATES JOHN D. OWENS ASSOCIATES JOHN D. OWENS ASSOCIATES JOHN D. OWENS ASSOCIATES JOHN D. OWEN 


ORDER BY PHONE, LETTER, TELEX OR EASY 
LINK. We accept VISA and Mastercard. Ship- 
ping $5 per board in continental USA. 


JOHN D. OWENS 


ASSOCIATES 
beae as Olslset medial 
STATEN ISLAND, N.Y. 10505 
(718) 448 6285 (718) 448 6298 
(718) 448 2913 


JOHN D. OWENS ASSOCIATES JOHN D. OWENS 


3MO ‘Cd NHOS S3LUIDOSSY SN3MO “d NHOfS S3LVIDOSSY SN3MO “d NHOF 
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by Robert Blum 


Alternate Console for SID 
Necessity was the mother of inven- 
tion that spurred Bridger Mitchell of 
Plu*Perfect Systems to develop this 
useful modification for ZSID, SID, or 
DDT. Apparently during the develop- 
ment and debugging of a CRT screen- 
handling routine, Mitchell realized 
that he had to find an alternate path 
for the messages coming from the de- 
bugging program. Each time SID dis- 
played a message, it altered the con- 
text of the original screen, making it 
practically impossible to decide 
whether the screen-handling routine 
was functioning properly. Even 
worse, performing an instruction 
trace completely destroyed the screen 
contents: as each instruction execut- 
ed, a new line of information from 
SID was displayed, scrolling yet an- 
other data line off the top of the CRT 
screen, until the screen was filled 
with nothing but messages from the 
debugger. This was no help at all in 
determining how the routine under 
test was interacting with the CRT. 
Mitchell developed SID2TTY to 


LJE NEED TO GET 
A FASTER MODEM 
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provide a standard way of interacting 
with the BDOS to direct application 
program messages to one display de- 
vice while providing an additional 
path for any messages coming from 
the debugging program. This pro- 
gram dynamically patches the SID 
debugger to redirect all of its console 
input and output to the logical TTY: 
device while allowing the program 
under test to continue using the CRT: 
device undisturbed. If you are using 
either ZSID or DDT, you should use 
ZSID2TTY and DDT2TTY, respec- 
tively, to patch the debugger. 

By using a second terminal as the 
TTY: device to “command” SID, you 
can debug programs without interfer- 
ing with standard console input and 
output. Assuming the usual CON: 
=CRT: device assignment, a pro- 
gram’s standard output will appear 
on the video monitor exactly as if the 
debugger were not in use; program 
input is entered on the standard key- 
board. All debugger input comes 
from the TTY: console, and debugger 
output appears on the TTY: video 





monitor. The patch in the Listing 
(page 107) is only 23 bytes long, the 
remainder of the code providing the 
necessary relocation and memory 
protection services. 

In operation, each time SID calls 
for BDOS console I/O service, 
SID2TTY changes the IOBYTE to re- 
flect a console assignment of TTY: 
and restores it to the original value 
afterwards. To protect high memory, 
the patch is relocated below SID and 
also below any .SYM and .UTL files, 
which should be loaded first. Operat- 
ing procedures are well documented 
within the program source listing. 


CP/M Plus Inaccuracy 

The CP/M Plus documentation states 
that the fourth field of a RSX header, 
labeled PREVIOUS, contains a 16-bit 
pointer to the previous RSX in the 
chain or to memory location 5 if no 
other RSXs are active. This suggests 
that the PREVIOUS pointer, in fact, 
always points to the NEXT jump in- 
struction of the previous RSX in the 
chain. Thus, compatibility is main- 
tained throughout the system, and 
each RSX is chained in both forward 
and backward directions. 

In actuality, though, this pointer is 
to location 7, the last byte of the jump 
NEXT field in the previous RSX, or to 
memory location 7 if no other RSXs 
are active. This inaccuracy has no ef- 
fect on CP/M Plus’s operation or on 
any RSX currently supplied by DRI. 
But beware if you are planning to 
write any custom RSXs that might 
use reverse chaining. 


DDJ 


Reader Ballot 
Vote for your favorite feature/article. 
Circle Reader Service No. 198. 
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CP/M Exchange Listing 


SID2TTY.ASM v 1.1 61/10/84 B. Mitchell (Plu*Perfect Systems) 


A Debugging Console for SID, ZSID and DDT 


=e =e Seo =e TO 


*SID2TTY is a small, public-domain program that 

sdynamically patches the SID debugger (Data Resources, Inc.) to 
sredirect all of SID's console input and output to the logical TTY: 
s>device. (ZSID2ZTTY and DDT2TTY are the ZSID and DDT versions.) 

, 

;By using a second terminal as the TTY: device to "command" SID, 
sone can debug programs without interfering with standard console 
;input and output. Assuming the usual CON:=CRT: device assignment, 
; a program's standard output will appear on the video 

smonitor exactly as if the debugger were not in use, and program 
;input will be entered on the standard keyboard. All debugger 
;input comes from the TTY: console, and debugger output appears 

;on its video monitor. 

f 

;The patch itself is just 23 bytes -- it changes the IOBYTE each time 
>SID calls for BDOS console i/o service and restores it afterwards. 
-The patch is relocated to protected high memory, below SID (and 
sbelow any .SYM and .UTL files, which should be loaded first). 


’ 


*Running SID2TTY will display a help message. 


‘ 

;Source file: SID2TTY.ASM for assembly with ASM or MAC. 
The ZSID and DDT versions are obtained by 
changing three equates. 


Requirements: CP/M 2.2 - 3.8 with IOBYTE implemented in bios. 
8880, 898985 or Z88 CPU. 
STH VS L244: Or ZSID-v 154) GE DOT V2e25 
External terminal connected to TTY:. 


Installation: Set the equates for SID, ZSID or DDT. 
If your TTY: device needs initialization or 
de-initialization, insert the code in place 
of dummy routines. 


Bugs: Exiting from SID with “C leaves the console 
redirected to TTY: (unless the BIOS improperly 
restores the IOBYTE on warmboots). The 
recommended fix is simply to exit with a "G6". 
Should you happen to hit “C, reload SID and reset 
the IOBYTE to its original value, then exit with 
“C from the CRT terminal. 


Remarks: 1. Although it would be possible to trap the 
warmboot and restore the IOBYTE, it's difficult to 
do correctly. Trapping @@@lh violates the basic CP/M 
addressing convention, making it impossible to 
run other resident modules that need to locate the BIOS 
and BDOS. Trapping the warmboot at the BIOS jump 
vector does preserve addressing, but it still requires 
special efforts to maintain compatibility with any higher 
resident modules, and the trap must remove itself 
without disturbing them. Since the application here 
is manual, interactive debugging, it seems best to 
favor compatibility and do a manual restoration. 


me me TO WO WH Be BW We WE We BVH We We We We ™e we BO MO TO TO We Be Be Be BVO BVO WE 


2. The assembler portion of SID/ZSID can be removed 
with the "-A" command to gain 68@h bytes, but 

this must be done BEFORE installing the patch 

with the "g1@3" command. 


Version: 1.8 -- 18 October 1984 B. Mitchell 
wk -- 19 January 1985 B. Mitchell 
Revisions: Please forward any revisions and improvements 


=e =e BO WO BO SS BO VO WE =e te Se BO TO TO TO 


to the author. 
(Continued on next page) 
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CP 7 M Ex chang e Listing (Listing continued, text begins on page 106) 


a 

;Author: Bridger Mitchell 

Plu*Perfect Systems 

Box 1494, Idyllwild CA 92349 
(714) 659-4432 


=e <—te mo Me MO Te Re We 


Note: Not tested on CP/M 3.@. 
ERS equ 1$1 
FALSE equ Gg 
TRUE equ NOT FALSE 
ADDRESS equ OFFFFH 
; 
; exactly ONE of the next 3 equates must be TRUE -- 
; 
SID equ TRUE 
ZSID equ FALSE 
DDT equ FALSE 
; 
CR equ 8dh 
LF equ Gah 
BELL equ 87h 
; 
IOBYTE equ 8803h 
BDOS equ 88@5h 
; 
org 1@8h 
START: jmp HELP 
jmp INSTALL 
jmp DEINITTTY 
; 
Signature:db ‘NEXT PC ' ;common SID/ZSID/DDT code 
siglen equ S-signature 
IF SID 
’ 
modsiz equ 188@h ;size of debugger module 
Sigad equ GE42h ;offset to signature 
callbd equ G6A4H ;offset to call _bdos routine 
fn2ad equ 1804h ;offset to addr of function 2 bdos call 
fnl@ad equ O@FF2H + Se SLO: EA. 19 
fnllad equ 1865h p aiero..in- 21 
7 
usage: db CRLF, "SIDZTTY v.* * 
db vers/16+'@','.',(vers mod 10)+'@' 
db " -- Redirect SID console i/o to TTY:',CR,LF 
db : -- Usage --',CR,LF 
db "Load SID, then .SYM and .UTL files',CR,LF 
db " #1I* filename.SYM',CR,LF 
db ' #R',CR,LF 
db , #ISID2TTY.COM',CR,LF 
db ' 4#R° ,CR, LF 
db ' #6163 ==>> SID''s console is now TTY:',CR,LF 
db "  #Ifilename.COM (or .HEX) to debug',CR,LF 
db . [CR Per 
db i Os ==>> display IOBYTE for reference',CR,LF,LF 
db "To exit from SID, deinitialize the TTY: (if needed) by” ,CR, LF 
db : #ISID2TTY.COM',CR,LF 
db ‘REV CR, LE 
db "  #6166',CR,LFE 
db . ‘Then use "G6" (not "“C") to exit from SID.',CR,LF 
db ‘(This message can be displayed under SID by the command:' 
db Le a. G188 or C168 before loading ''filename'')' 
db CR LE, EE. "Ss! 
; 
errmsg: db CR,LF,BELL,'Can''t find SID v 1.4!S' 


ENDIF ,IF SID 


2 254D 
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The Macintosh 
Software 
Library 

just got fatter... 








It’s about 
TIME. 
AND SPEED. 


FASTER COMPUTER OPER- 
ATION with disk operations 2 to 
5 times faster. 


QUICK PROGRAM TRANS- 
FER FROM OTHER CP/M 
COMPUTERS using built-in 
transfer utilities and standard 
CP/M file structure. 


RUNS BIGGER MORE POW- 
ERFUL PROGRAMS with 52K 
transient program ‘area available 
on 128K Mac, 300K available on 
512K system and the capability is 
built-in to manage up to 16 
Megabytes of RAM. 


PLUG-IN WHAT YOU NEED 
...CP/M for the Macintosh sup- 
ports up to 2 printers and 16 
Drives of 512,000,000 bytes each 
for a maximum of 8 Billion bytes 
of storage. 


MORE DISK SPACE AVAIL- 
ABLE ... each disk drive has 360 
bytes available, often eliminating 
the need for additional drives. 


CHOOSE ANY PRINTER let- 
ter quality or dot matrix ... any 
serial printer will work just fine. 


MEDIA PROBLEMS?...NONE 
... all that is needed to transfer 
programs from 5% to 3% is a 
modem transfer program to 
operate with our Modem 7 Com- 
munications Compatible Program 
... this enables programs to be 
transferred from XEROX, 
OSBORNE, HEATHKIT, 
KAYPRO, RADIO SHACK 
and others. 


THE 10 FEATURES: 


> W pose 


NN 


6 Disk System 


. Documentation from Digital Research 


and I.Q. 


. MacroAssembler (no extra charge) 
. Modem 7 Compatible Communications 


Transfer Program (no extra charge) 


. C Compiler (no extra charge) 
. Text Editor (no extra charge) 
. Menu Program (puts menus on your 


programs) (no extra charge) 


_ Standard Printer Driver (no extra 


charge) 


. Copy Program (no extra charge) 
. Leir-Seigler ADM3A Terminal Emula- 


tion Program (no extra charge) 


All This For Only 
$395 Retail 


Circle no. 108 on reader service card. 








UNLIMITED 
EXPANDABILITY is 
made possible with the 
total and easy control of 
serial expansion ports 
which allows many forms 
of plug-ins. 


UTILITIES ... such as STAT, 
PIP, DDT, ED, LINK68, INIT, 
NM68, SIZE, LO68, RELOC, 
and AS68. 


AND We are currently compiling 
a vast Library of CP/M software 
that can be ported over to the 
Macintosh and our Macrolibrary 
will also be available soon. 


NEED POPULAR WORD 
PROCESSING PROGRAMS? . 
. . Run WORDSTAR® 
DBASEII® AND other CP/M 
(8080) 2.2 Programs with our 
EM80 Emulator .. ONLY $195.! 





With CP/M FOR THE MACIN- 
TOSH the Macintosh Software 
Library just got fatter! 


Call or write for your Macintosh 
CP/M Software Catalog. 


7 Ne 


— OF 


f fi . Nsoftware. 






I.Q. Software 

2229 E. Loop 820 N. 
Ft. Worth, Texas 76118 
(817) 589-2000 





Macintosh is a registered trademark of Apple Com- 
puter, Inc. CP/M is a registered trademark of Digital 
Research, Inc. WORDSTAR is a registered trademark 
of Micropro. DBASE II is a registered trademark of 
Ashton-Tate. ©1985 I.Q. Software 


Es 


CP. if M Ex chang e Lis ting (Listing continued, text begins on page 106) 


? 
modsiz 
sigad 
callbd 
fn2ad 
fnl¢gad 
fnilad 


’ 


usage: 


e 


a 


errmsg: 


a 
modsiz 
sigad 
callbd 
fn2ad 
fnldgad 
fnilad 


c 
usage: 


e 
errmsg:db 


me =e Me TE BO BRE 


HELP: 
PEiING: 


ENDIF 


lxi 
mvi 
call 


2269h 
1682h 
GEAFH 
1886h 
186Eh 
18El1h 


CR, GF, LF se ZeiID2rTrTy va! 

vers/10+'@','.', (vers mod 10)+'@' 

" -=- Redirect ZSID console i/o to TTY:',CR,LF,LF 

; -- Usage --',CR,LF 

‘Load ZSID, then .SYM and .UTL files',CR,LF 

" #1* filename.SYM',CR,LF 

: Rk" CR, LE 

; #IZSID2TTY.COM',CR,LF 

$A CREE 

" #6163 ==>> ZSID''s console is now TTY:',CR,LF 

"  #1£filename.COM (or .HEX) to debug',CR,LF 

: th. CR LE. 

Mu, 18 ee ==>> display IOBYTE for reference',CR,LF,LF 
"To exit from ZSID, deinitialize the TTY: (if needed) by',CR,LF 
"~ FIT ZSID29TY. COM’ JCRI LP 

; #RO',CR, LF 

* 9 $6106 ' CR, LE 

‘(This message can be displayed under ZSID by the command:' 
CRyLE»- G198 or C180 before loading ''filename'')' 

CR, LE LE," =" 


CR, LF,BELL,,"Can'*t. find :ZSID:v 1<4¢1S" 
SER SSID 


18868h 
GA71h 
G6A2h 
8BCEh 
8C25h 
8BBCh 


CRebFsLP, DOT2TTY -v. = ' 

vers/10+'@','.', (vers mod 10)+'@' 

‘) gee Redirect: DPT console 1/6 to TTY: CR- LF: LE 
’ -- Usage --',CR,LF 

‘A>DDT DUT ZI TY COM CR, LE 


' -G193 ==>>. DDT" *s console is now TTY: ' ,CR,LF 

" -Ifilename.COM (or .HEX) to debug',CR,LF 

' -R',CR,LF 

SSeS: 3 ==>> display IOBYTE for reference',CR,LF,LF 


"To exit from DDT, deinitialize the TTY: 
: ~IDDT2ZTTY .COM" ;CR, LE 

F -R@',CR,LF 

" -G106',CR,LF 

‘(This message can be displayed under DDT by the command:' 
CR, LE," G18@ before loading ''filename'')' 

CE <i sir, 'S' 


(if needed) by',CR,LF 


CR, LP,BELL,'Can*®'t find. DporTcy 24:21S" 
> Les DDT 


Display usage message & quit. 
This is executed if SID2TTY is run as a 
It can also be C'd or G'd from the debugger. 


-COM file 


d,usage 


e9 


bdos 
(Continued on page 112) 
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Free Catalog! 


Your 80-page guide to computer supp lies and 
accessories-including soualase 
new product descriptions. 


Wi Packed with over 1600 products for microcomputers, minicomputers, 
and word processors — many available nowhere else. 


Wi Big special section devoted to new supplies and accessories. 


i Comprehensive product descriptions — including more than 475 
full-color photos — clearly explain features and benefits. 


Wl Easy-to-use cross reference guides to magnetic media, ribbons, 
and more—along with the industry's most complete cable guide. 



















Helpful suggestions and tips, ranging from flexible disk 
care to proper ribbon selection to useful application ideas. 


Phone toll-free 1-800-547-5444 


In California, call 1-800-547-5447, 






















ee ee 
B ™ 
SReTRaaae (Phone toll-free 1-800-547-5444* or send coupon today: 
: Inmac Catalog Dept. soa 
2465 Augustine Drive COMPANY 
a Santa Clara, CA 95054 ADDRESS 
Please rush my free copy of CITY 
the Inmac Catalog. | under- 
stand there is no obligation ane a Eh! 
whatsoever. *\n California, call 1-800-547-5447 


Circle no. 53 on reader service card. 


WARNIER/ORR 
Structured Diagramming Tool 


SDT: Structured Bigexanining | Tool 
Features: Full screen editing e Automatic formatting including brackets e Menu Driven e 
Block moves e Cursor, Search, Label navigation e Procedures e Global & Selective 
Replace eBegin/End blocks eDetail hiding e Diagram families & more. Tutor & Manual. 


Requires: IBM PC, DOS 2.x, 256K RAM, Price: $325.00 
51," Diskette, Mono Display. Demo: $ 20.00 
To order SDT call with credit card number or mail check or company P.O. 
rr. Varatek Software Architects ee 
MasterCard 523 Winter St., No. Andover, Ma. 01845 VISA 
ee (617) 685-7003 See: 





Circle no. 60 on reader service card. 








NOVUN 
ORGANUM 
INC. 





COMPLETE SOURCES 
NO ROYALTIES 


COMPREHENSIVE C Power Packs 
include over 1000 functions which 
provide an integrated environment 
for developing your applications ef- 
ficiently. ‘‘This is a beautifully doc- 
umented, incredibly comprehensive 
set of C Function Libraries.” 

— Dr. Dobb’s Journal, July 1984 


USEFUL “‘...can be used as an ex- 
cellent learning tool for beginning C 
Programmers...’ 

— PC User’s Group of Colorado, Jan. 1985 


FLEXIBLE Most Compilers and all 
Memory Models supported. 


RECOMMENDED ‘“‘ have no hesita- 
tion in recommending it to any pro- 
grammer interested in producing 
more applications code, using more 
of the PC capabilities, in much less 
time.” — Microsystems, Oct. 1984 


PACK 1: Building Blocks | $149 
DOS, Keyboard, File, 
Printer, Video, Async 

ga PACK 2: Database $399 
B-Tree, Virtual Memory, 
Lists, Variable Records 


mg PACK 3: Communications $149 
Smartmodem™, Xon/Xoff, 
X-Modem, Modem-/ 


mg PACK 4: Building Blocks Ii $149 
Dates, Textwindows, Menus, 
Data Compression, Graphics 

ge PACK 5: Mathematics | $99 
Log, Trig, Random, 
Std Deviation 
PACK 6: Utilities | $99 
(EXE files) 


Arc, Diff, Replace, Scan, Wipe 
‘Master Card/Visa, $7 Shipping, Mass. Sales Tax 5% 


ASK FOR FREE DEMO DISKETTE 
He SOFTWARE 

HORIZONS 
i inc. 


ae be le etc 
165 Bedford St., Burlington, MA 01803 


(617) 273-4711 


Circle no. 90 on reader service card. 


CP. - M Ex change Listing (Listing continued, text begins on page 106) 


lxi h,@ ;is debugger in use on default stack? 
dad sp 

mov a,h 

cpi 2 

rnc ;return to caller. (cep) 

rst a ;return to debugger 

Ex d,errmsg 

jmp print 


Search for debugger signature in high memory. 


Search downward to find first image of the debugger, 

in case other copies are lying around. This also 

allows other resident modules to exist above the 
debugger. Debugger is always located on a page boundary. 


NSTALL: 
lhld pa 
1lxi d,-(modsiz+3) 
dad d ;Sstart at max possible addr 
search: push h 3 
1xi d,sigad 
dad d 
call compar 
pop h 
+2 found 
mov a,h 
cpi 18h ;quit looking at 19@0@h 
Ke err 
dcr h ;try 1 page lower 
jmp search 
compar: lxi d,signature 
mvi b,siglen 
complp: ldax d 
cmp m 
rnz 
inx h 
inx d 
dcr b 
jnz complp 
ret 


e 
a 
e 
’ 
* 
‘ 
° 
a 
i 


ound: push h 


Debugger located. Calculate run-time addresses & patch 


into code and debugger. 


; save base addr of debugger 
1lxi d,callbd ;put 3 run-time addresses into code 
dad d 
xchg 
lxi h,patchl 71: the call bdos routine address 
mov m,e pe 
inx h 
mov m,d 
lhld 6 72: the protect address/base of high code 
shld patch2 
lxi d,-codelen ;protect the code 
dad a ; (don't trace from here to lpend) 
shld 6 
push h ;Save run-time base of high code 
lxi d,saviob-code 
dad d 
shld patch3 73: the save-iobyte address 
pop d ;get destination 
push d 
1xi h,code ;move the code into place 
mvi b,codelen 


(Continued on page 114) 
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FINALLY! 


Communications Hardware and Software that's 
Inexpensive, Easy to Use and Guaranteed. 

































“The Amazing SpiderNet...an 
incredible amount of utility available to 

almost any small-sized application.” 
Ron Exner, 12/84 Hardcopy 


SNARE™-—SpiderNet’s Callback Security System 
@ Protects ANY dialup computer system from unauthorized intruders $ 
@ Authorized users are called back at specific locations 595 
@ SNARE secures three modem lines at less than $200/line 
@ Up to three separate computers can use SNARE simultaneously 
@ Uses Hayes-compatible modems or others like DEC’s DFO3 
@ Stores 70 authorized users, expands to 150 (300++ soon) 


SpiderNet—Printer/Plotter Sharing Unit 
@ Shares expensive RS-232 plotters, daisy wheel or laser printers $495 
@ Makes laser printers affordable for your office or department 
® Two to five micros or minis can share a peripheral 
@ Connect and use—no software modifications required! 
@ Optional 64K buffer for spooling 


SpiderNet—Computer and Peripheral Networking $495 


@ Six port, intelligent software-controlled RS-232 switch 
@ Share multiple peripherals between systems 
@ Interconnect computers to share data and files 
@ Three pairs of ports can be connected simultaneously 
@ Links ports at different baud rates 
@ Programmable: perfect for custom RS-232 control application 


SpiderNet—Multiplexer, Terminal Concentrator and more $495 


@ Five to one RS-232 multiplexer/demultiplexer 
® 5X1 or 4X2 concentrator for expanding terminal ports 





ENVOY ™—Telecommunications Software 
@ Access to electronic mail, remote systems and data networks $49 Q5 

@ Error free, text and binary file transfers via XMODEM or ANSI X3.28 * 
@ Smart terminal mode with capture buffer, autodial and autologin 
@ Easy to use, menu driven, compact and high speed 
@ Utilities menu for copy, type, print, erase and rename files 
@ For IBM PC, PCjr, PC compatibles, Sanyo MBC-55X, 

CP/M-80 or -86 





30-day money-back guarantee on all products 


ARTISOF T inc 


Box 41436, Tucson, Arizona 85717 


(602) 327-4305 


Circle no. 7 on reader service card. 


CP. Y M Ex chang e Listing (Listing continued, text begins on page 106) 


ED: mov 
stax 
inx 
inx 
dcr 
jnz 


rPoaray 
3 


O 


lpend: pop ;patch debugger's console io calls 
inx 
inx 
inx 
pop 
ka 
dad 
mov 
inx 
mov 
1x3 
dad 
mov 
inx 
mov 
eX 
dad 
mov 
inx 
mov 
jmp 


; «tO point at code entry ('divert') 
;de = base of debugger 
;index into debugger module 


is ;plug 3 diversion addresses into calls 


MATS aTsa STs arTsgwrsawrvaroooe 


TAT ;do any user-supplied initialization 


The REDIRECTION CODE, which is moved up just below the debugger 


ee =e Se Re 


a 
patch2 equ St+1 
CODE: jmp ADDRESS ;jJmp to debugger entry 
divert: lxi h,iobyte 
mov a,m 
patch3 equ $+1 
sta ADDRESS ;Save the iobyte 
ani Gfch + assign CON: to TTY: for debugger 
mov m,a 
patchl equ S+1 
call ADDRESS ;debugger's call bdos routine 
Saviob equ S+1 i. 
mvi a,@@ ;restore user's iobyte 
sta lobyte 
MOV aya ;get bdos return param back to A 
ret 


codelen equ S-code 


User-supplied TTY: initialization routine. 
Use this to set baud rate, channel Parameters, etc. 


mi =e we te Ne 


NOEL YS 
Erst7 ;return to debugger on TTY: device 


User-supplied TTY: de-initialization routine, 
Use this to restore TTY: device to regular settings. 


OT se we we we 


EINITTTY: 
rst 7 ;return to debugger on TTY: device 
END 
End Listing 
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Introducing the MIX Editor 


Cwith Split Screen - both horizontal and vertical) 
os Powerful Addition To Any ec Ss Tool Box 





| ‘For PCDOS/MSDOS 08 (2 2.0 and above/ I /128K) © @ IBM M PC/Compatibles, P PCJr., mney 1000/1 200/2000, & others Cs 


For CPM80 2 2/3. O( Z80 — @ 8” SSSD, a 2/4, Osborne I SD/DD, Apple Il, & others: 


: Great. For All Languages 


A general purpose text 
processor, the MIX Editor is _ 


packed with features that make it _ 
useful with any language. It has 


- auto indent for structured | 


languages like Pascal or C.Ithas _ 


automatic line numbering for 


_ BASIC (255 character lines). It 


_ even has fill and ——_ for 
‘English CC 


| Terminal Contigunaten 


A utility for defining terminal 
features (smart features 
- included) allows the editor to’ 


_ work with any terminal. Over 30 — | 


_ of the most popular terminals are 
built-in. © 


Custom Key Layouts 


‘Commands are mapped to keys 
just like WordStar. If you don’t | 


_ like the WordStar layout, simply — . 


_ change it. Any keycanbe © 

mapped to any command. You 

~ can also define a key to generate 

- a string of characters, great for — 
entering keywords. - 


L Split Screen 


horizontally or vertically and edit . 
_ two files simultaneously. 


Macro ca 
The MIX Editor allows a _ 


“sequence of commands tobe 


- executed with a single keystroke. 


- You can define a complete — 


editing operation and perform it it 
at the touch of a key. 


ee 
| Suite 363 
_ Richardson, Tx 75081 
softwa © (214) 783-6001 — 


- -MSDOS is a trademark of Microsoft 
~ PCDOS isa trademark of [IBM 


- CPM80 is a trademark of Digital Research © 
- WordStar is a trademark of MicroPro 


‘Custom Setup Files 


Custom keyboard layouts and 
macro commands can be saved 
in setup files. You can create a 


different setup file for each 
_ language you use. The editor 


automatically configures itself | 


| using a setup file. 


Command Mode > 
Command mode allows any 


editor command to be executed 


by name. It is much easier to 
remember a command name > 


versus a complicated key =| 
sequence. Command mode ~ 
- makes it easy to master the full 


capability of the editor. 
Frequently used commands can 
be mapped to keys. Infrequent 
commands can be executed oF 
name. _ 


- Editor Commands 
_ The editor contains more than 


100 commands. With so many 
commands, you might think it 
would be difficult to use. Not so, 


_ it is actually extremely simple to 
use. With command mode, the 
power is there if you need it, but 

tt doesn’ t get in your way if Nines 


Cursor Commands © 


Left/Right/Up/ Down 


_ Tab Right/Tab Left 


Forward Word/Backward Word. 


_ Beginning of Line/End of Line 


Scroll Up/Scroll Down _ 


Window Up/Window Down : : _ 
Scroll Left/ScrollRight = = ~—© 


Top of File/ Bottom of File” 
eee 


Block a ie | 


_ Copy/Move/Delete 
Read/Write _ 
Lower oe Case 

Fill/Justify 


Print 


File Commands — _ 
_ Directory (with wild cards) 


_ Show File/Help File _ 
- Input/Output File | 


Delete File/ Save File 


| Other Commands | 


Find Sinine/ Replace being 


Replace Global/Query Replace 


Delete Line/Undelete Line © 
Delete Word/Undelete Word © 


Insert Mode/Overwrite Mode 


Open Line/JoinLine  — 
Duplicate Line/ Center Line 


: Set Tab/ Clear Tab 











For everyone who ever tried 


doing five things at once 


The perfect computer program 
for someone as busy as you. 

It lets you keep several other 
programs working at once. 


Do you ever go in so many directions 
so fast not even a computer can keep up 
with you? 

Well, now an IBM Personal Comput- 
er can—thanks to IBM TopView. 


‘TopView is a new kind of software 
that lets you switch between other pro- 
grams as quickly as you can change your 
mind, even run several programs at the 
Same time. 

Once you load TopView into your 
computer, you load the other programs 
you use most—as many as your com- 
puter’s memory will permit. 

After that, the greatest distance 
between two programs is just a couple of 


keystrokes, or (optional) mouse moves. 

There’s no waiting and a lot less 
diskette swapping. 

But when you're really busy is when 
‘TopView really shines, letting you do 
many jobs simultaneously. 

For example, you can print a letter, 
while you search a file, while you analyze 
a spreadsheet, while your clock/calen- 
dar reminds you that your automatic 
dialer is about to place a call for you. 


Little Tramp character licensed by Bubbles Inc., s.a. 





...L BM presents lopView. 


And you can see everything through 
on-screen “windows” and control it all 
with easy-to-use pop-up menus. 

You can even make unrelated pro- 


grams work together: say a “Brand Y” 


spreadsheet with a “Brand Z” word pro- 
cessor. 

But simplest of all is a certain 
“Brand IBM”, namely the IBM Assistant 
Series—for filing. writing, planning, 
reporting and graphing. 


*/BM Product Center price. 


Many other popular programs also 
work with TopView, and the number is 
growing. 

Naturally, the more computer 
memory you have, the more TopView can 
help you. At least 512K is recommended. 

And the price is only $149% 

Beyond that, all you need is to be the 
kind of person who never does a single 


thing all day, but who wants to do every- | 


thing, at once. 


Circle no. 68 on reader service card. 


To learn more, call an IBM market- 
ing representative, or visit an IBM Prod- 
uct Center or Authorized IBM PC or 
Software Dealer. 

For the store nearest you, and a free 
brochure, call 800-447-4700. (In Alaska 
and Hawaii, 800-447-0890.) 


Personal Computer Software 





by Alex Ragen 


If you’ve ever traveled outside the 
United States, you’ve probably no- 
ticed that the household electricity 
varies from country to country. The 
line voltage may be 110 or 120 or 220 
or 240 volts, and the frequency may 
be either 50 or 60 Hz. Even if your 
electric shaver or hair dryer has a lit- 
tle switch somewhere to flip back and 
forth among all the possible combina- 
tions, you still may find that you can’t 
use it because the plug doesn’t fit the 
wall receptacle. It turns out that al- 
most every country in the world has its 
own unique plug shape, which is not 
only different but also superior to ev- 
ery other country’s plug shape. Does 
this remind you of anything? 

Software and hardware expend a 
tremendous amount of computing en- 
ergy in converting between lan- 
guages, protocols, disk formats, oper- 
ating systems, and so on. You can run 
CP/M 80 or MSDOS on your Macin- 
tosh or use your IBM PC (and compa- 
tibles, of course!) to write Apple II 
disks or run a 68000 board. Whatever 
designers intended users to do on one 
configuration, they have managed to 
implement on another as well. This 
Babel of standards and not-so-stan- 
dards is chaotic, confusing, pointless, 
and counterproductive—and we’ve 
all had lots of fun and worked hard 
getting around it. 

Perhaps one day we’ll live in a per- 
fect world. Everything will interface 
with everything else, Macintosh add- 
ons won't be called Mac-this or Mac- 
that, and a word processor will 
emerge that is so good that nobody 
will want to write another one. 


C Language 

Lattice Inc. is offering an upgrade kit 
to users of Microsoft’) MSDOS GC 
compiler. For $150 and the original 
Microsoft diskettes, Lattice will pro- 
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vide version 2.20 of its C compiler, 
the C-SPRITE debugger, and a type- 
set manual. The regular retail price 
of the package is $675, and the offer 
is good until July 31, 1985. Contact 
Lattice Inc. at RO. Box 3148, Glen 
Ellyn, IL 60138 (312) 858-7950. 
Reader Service No. 101. 

QTools, a programmer’s toolbox of 
19 tools adapted from Unix to 
PCDOS, is available for $49.95 post- 
paid from QCAD Systems, 1164 
Hyde Ave., San Jose, CA 95129 
(800) 538-9787 or (408) 255-5574 in 
California. Reader Service No. 103. 

A new C language scientific sub- 
routine library that provides IBM PC 
users with 112 pretested and precom- 
piled mathematical and statistical 
subroutines is available from Wiley 
Professional Software. The subrou- 
tines include the most commonly used 
Operations such as differentiation, 
polynomials, probability, numerical 
integration, regression, differential 
equations and others. Over 400 pages 
of documentation provide a descrip- 
tion of methodology, notes on special 
considerations, source code, test pro- 
grams, and results. The library re- 
quires the Lattice C compiler, version 
2.12 or later, and a two-drive IBM PC. 
Contact Leslie Bixel, Wiley Profes- 
sional Software, 605 Third Ave., New 
York, NY 10158 (212) 850-6788. 
Reader Service No. 105. 

TGL Inc. has released version II of 
The Converter, an IBM PC program 
that automatically converts UCSD, 
MT-+, and MS-Pascal source pro- 
grams into equivalent C programs. 
Ted Lewis of TGL points out that The 
Converter correctly handles nested 
procedures, separately compiled 
units or modules, and intrinsic func- 
tions; it also enables developers to 
move quickly from UCSD or MSDOS 
to Unix. Contact Mr. Lewis at TGL 





Inc., 4400 Sulphur Springs Rd., Cor- 
vallis,s OR 97330 (503) 745-7476. 
Reader Service No. 107. 

Thunder Software has announced 
version 2.0 of its Thunder C, the only 
C compiler available for the Apple 
Pascal and Apple ProDOS environ- 
ments. Thunder C generates native 
6502 assembly language routines, 
and its developers rate the new ver- 
sion as 300 percent faster than the old 
one. It runs under Apple Pascal 1.1 or 
1.2, although the ProDOS version re- 
quires an external ProDOS macro as- 
sembler. Price is $49 plus $3 ship- 
ping. The company also offers 
LINKIT, a linking loader and library 
generator; XREF, a Pascal cross-ref- 
erence utility; and ASSYST, a 6502 
assembler. Contact Thunder Soft- 
ware at PO. Box 31501, Houston, 
¥X. 77231 (713) 728-5501. Reader 
Service No. 109. 

Hippo-C is the only (so far) C com- 
piler for the Macintosh with a source- 
level debugger—or so its developers 
claim. Level | provides access to over 
380 Toolbox and Quickdraw routines 
and features a compiler, editor, stan- 
dard C library, on-line tutorial, de- 
bugger, linker, shell command pro- 
cessor, many sample programs, and 
over 200 pages of documentation. It’s 
priced at $149.95. Level 2 includes 
all Level 1 features plus an optimiz- 
ing compiler, assembler, and full 
floating-point support. It sells for 
$399.95. Contact Hippopotamus 
Software at 1250 Oakmead Pkwy, 
Sunnyvale, CA 94086 (408) 738- 
1200. Reader Service No. 111. 


Modula 2 

Release 1.10 of Modula-2/86 for 
PCDOS is now available from Logi- 
tech. A library of programming tools 
is also available. Contact Chris Cale 
at Logitech, 805 Veterans Blvd., 
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Redwood City, CA 94063 (415) 365- 
9852. Reader Service No. 113. 

Modula-2 for Z80-based CP/M 
systems is available from Hoch- 
strasser Computing AG, Leonhard- 
shalde 21, CH-8001 Zurich, Switzer- 
land, phone 01/47 55 48. The cost is 
sFr 400 or about $150. Reader Service 
No. 115. 


MSDOS 

Guess who is throwing its hat into the 
cutthroat world of the IBM PC add- 
on market? None other than Intel, 
which has established a Personal 
Computer Enhancement Operation. 
The first two products are its well- 
known 8087 and 80287 math co- 
processors (what’s next, the 80867). 
Contact Intel at 520N.E. Elam 
Young Pkwy., Hillsboro, OR 97124- 
6497 (503) 629-7369. Reader Service 
No. 117. 

PC-68K is an upgrade package— 
plug-in board and software—that 
adds development support for Motor- 
ola’s 68000 family to IBM’s PC XT 
and PC AT running PCDOS. PC-68K 
provides a symbolic debugger, link- 
er/locator, Motorola compatible 
macro assembler, and IEEE floating- 
point package. Pascal and C compil- 
ers and communications utilities are 
extra-cost options. The board fea- 
tures an 8 MHz 68000 cpu and 256 — 
1024K of RAM. Prices start at $2995 
for the 256K version. Contact Carrie 
Ann Moran at Language Resources, 
4885 Riverbend Rd., Boulder, CO 
80301 (303) 449-8087. Reader Service 
No. 119. 

The Buddy System enables a sup- 
port person located at a central facili- 
ty to “take over” a remotely located 
IBM PC in order to resolve a custom- 
er’s problem. The developer has been 
using it internally for three years to 
support its products and now offers it 
to others at $199. You load the Bud- 
dy System when you turn on your 
PC; thereafter, it’s dormant until you 
activate the ‘“‘copilot”’ mode and con- 
tact the support center via modem. 
The support person then observes 
you, the user, as the application is ex- 
ecuted and can even take control of 
the application to show you what to 
do. A number of other features, such 
as help, screen snapshot, screen copy 
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to file, and record/replay support ses- 
sion, are designed to increase the pro- 
ductivity of the support operation. 
Contact Edward Murphy at Solva- 
tion Inc., 302 Turnpike Rd., South- 
boro, MA 01722 (617) 481-9390. 
Reader Service No.121. 

Phoenix Software Associates has 
introduced an IBM PC/AT-compati- 
ble ROM BIOS that was developed un- 
der strict controls specifically to en- 
sure originality and to avoid copyright 
infringement suits. The company had 
already developed versions for the PC 
and PC/XT. The PC/AT version is of- 


fered to OEMs for unlimited use li- 
censing at a price of $440,000. The 
PC and PC/XT versions are $290,000. 
Contact Richard Levandov at 1420 
Providence Hwy., Suite 101, Nor- 
wood, MA 02062 (617) 769-7020. 
Reader Service No. 123. 

Ryan McFarland’s RM/Cobol is 
now available for the IBM PC/IX 
user. It was already available for the 
IBM PC under PCDOS, as well as for 
the IBM Series | under Unix and the 
IBM 370 computers under VM/CMS. 
The new RM /Cobol is priced at $230 
for the runtime version and $750 for 
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Conix 


NOW ONLY $79.95! 


If you think you're missing out on innovative software 
developments because nobody is writing for CP/M'™-80, take 
a look at us. We've adapted UNIX™ features to CP/M like 
never before, and with the kind of professional. quality- 
controlled product that you deserve. That product is none 
other than the critically acclaimed ConlX Operating System. 


ConlX can provide any 48K+ CP/M-80 or compatible system 
with |/O Redirection and ihe (uses enary or disk), 
perfected User Areas, Command and Overlay Path Searching, 
Auto Screen Paging. 8Mb Print Buffering, 22 new SysCalls, 
Function Keys, ‘Virtual’ disk system, Archiver (saves over 
50% disk), extensive command pangulage, 300+ variables, 100+ 
commands, pull-down menu, and much more! Uses as little as 
1/2K RAM! Runs with CP/M for true data and software 
compatibility. Installs easily without any system mods! 


The ConiX paceage lists at $165 and has been advertised and 
sold internationally to many enthusiastic customers since 
October 1983. As a special limited offer, we've lowered the 
pa of the complete ConlX oiem by 50% to ont $79.95! 

on't miss this opportunity to bring your 8-bit micro back into 
the software revolution. Order your copy of ConIX today! 


















Price includes manual, 8° disk, and user support. 544’ conversions 

available. Contact your local dealer, or buy direct and add shipping: 

$4.50 UPS, $10 Canada. $25 overseas. NY residents add sales tax. 
P.O. Box 680 Parkchester Station, NY 10462 


5 Tel. (212) 652-1786 (for information/orders) 


‘We're helping your computer work better for you! "’ 
UNIX: AT&T Bell Labs, CP/M: Digital Research, ConIX: Computer Helper Ind. 






Computer Helper Industries Inc. 
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¢ DOS INTERFACE — MORE THAN A 
BRIDGE TO DOS! 


Automate compiling, Linking, testing - 
do it all with one keystroke! Capture error 
messages, then look at them as you edit 
your program. 


Scroll through previous DOS output - 
even if it has gone off the screen. Rewrite 
your last DOS command with one 
keystroke. Convenient! 


Run any program inside EC - any DOS 
command, compiler, DB manager - even 
BASIC! 


¢ COMMAND AND TEXT MACROS. 


e EC IS EASY TO LEARN - List is Alt-L, 
Find is Alt-F, Undo is Alt-U, Jump is Alt-J, 
... get the picture? 

FULL-FEATURED DEMO. Price: just ship- 

ping cost. Its only limitation - the 8k file size! 


















Requires 192k, DOS 2.0+,PC compatible. 














xe 


COD, MC, VISA. Shipping charge - $5. 


THE (° JOURNAL 


The C Journal will help YOU use C on YOUR machine 
—IBM PC”, CP/M™, Macintosh”, or UNIX™-based — 
micro, mini, or mainframe. 


It's the ONE publication for programmers, software 

managers, and other computer professionals who 

need to keep aware of developments in the indus- 

try's fastest-growing language. 

@ regular columns for novice through advanced C 
programmers 

@ software product and book reviews 

@ tips on working with major compilers and 
operating systems 

@ news from the ANSI standards committee and the 
industry 

For FREE sample issue and discount subscription 

information, write, call, or circle our reader service 

number. The C Journal is a quarterly publication, 

and costs $28/year (add $9 for overseas airmail). 


Subscriptions/Advertising: Editorial: 
Christina Gardner Rex Jaeschke 
(201) 989-0570 (703) 860-0091 


another independent publication from 
InfoPro Systems 
3108 Route 10 ee 
P.O. Box 849 


Denville, NU 07834 
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The Louisiana Purchase................cccc0cee Di Ns odin as ane peenn tions 1803 
GREAT BARGAINS _ senas'stestox Alaska) $7,200,000. BBD 
IN HISTORY: The EC Text Editor.........ccc0000. S49 50 cies 1985 


The men who made these historical purchases could perceive a real value — like the person who buys EC. Need a 
well-crafted programmers editor? Then take a look at what EC has to offer. . .and if you really need to spend over $100 
to have confidence in a text editor, let us know and we'll raise the price. 


e EDIT MULTIPLE FILES IN WINDOWS 


e FILE SIZE LIMITED ONLY BY 
AVAILABLE MEMORY 


e ON-LINE CALCULATOR - Bases: hex, 
octal, binary, decimal & ASCII. Bitwise 
shift, AND, OR, XOR. Integer arithmetic. 


¢ ADDITIONAL FEATURES — Color, ex- 
tended ASCII support, auto-indent, ignore 
case, auto-tab for C. 


e INTEGRAL SPOOLER AND PRINT FOR- 
MATTER. 


C SOURCE 
12801 Frost Road 


OURCE <ansas City, Mo 64138 


(816) 353-8808 


30 Day Money-Back Guarantee *** 


Dealer, OEM inquiries invited. 
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the full version. Contact Ryan 
McFarland Corp., 609 Deep Valley 
Dr., Rolling Hill Estates, CA 90274 
(213) 541-4828. Reader Service No. 125. 

A full ANSI Fortran 77 compiler 
for the IBM PC has been announced 
by Lahey Computer Systems. The 
complete package, including a 250 
page manual, customer telephone sup- 
port, and newsletters, costs $477 and 
requires 256K RAM and an 8087 co- 
processor. The compiler claims Lat- 
tice C compatibility. Contact the ven- 
dor at 31244 Palos Verdes Dr. West, 
Suite 243, Rancho Palos Verdes, CA 
90274 (213) 541-1200. Reader Service 
No. 127. 

Scroll and Recall lets the IBM PC 
user scroll back through 27 pages of 
previously displayed screens while 
saving you DOS commands, which 
you can then recall, edit, and reuse 
without having to type them in again. 
The cost is $69. Contact Dennis P. 
Olenick, Opt-Tech Data Processing, 
P.O. Box 2167, Humble, TX 77347 
(713) 454-7428. Reader Service No. 129. 

The GTP Program Development 
System is a productivity tool for Tur- 
bo Pascal programmers. Basically, it 
generates the Turbo Pascal state- 
ments for handling screen data entry. 
It requires PCDOS or MSDOS version 
2.0 or higher, and lists for $99.95. 
Contact AEF Software, P.O. Box 928, 
Katy, TX 77449 (713) 391-8570. 
Reader Service No. 131. 

FREECOPY is functionally equiva- 
lent to DISKCOPY, which is distrib- 
uted as part of PCDOS. Although it is 
basically DISKCOPY reverse engi- 
neered, the author claims not to have 
violated the proprietary rights of e1- 
ther IBM or Microsoft. Commented 
source code is included. The author is 
placing the program in the public do- 
main but does request a $25 contri- 
bution. Contact Donald Buresh, 
Squire Buresh Associates, 18 Doro- 
thy Rd., Millbury, MA 01527 (617) 
865-3435. Reader Service No. 133. 

Modular Bridge is a product that 
allows you to transfer files between 
PCDOS and the PICK PC-XT operat- 
ing system. Contact Modular Soft- 
ware, P.O. Box 204, Union City, GA 
30291 (404) 964-7171. Reader Service 
No. 135. 

HFORMAT and HTEST are two 
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programs that address the problems 
of formatting hard disks on the PC 
family. The programs test and per- 
form the equivalent of factory for- 
matting on the drives. Contact Mar- 
cus Kolod at Kolod Research, P.O. 
Box 68, Glenview, IL 60025 (312) 
291-1586. Reader Service No. 137. 

A Universal PROM programmer 
for the IBM PC is offered for $250 by 
Advanced Microcomputer Systems 
of 6802 N.W. 20th Ave., Ft. Lauder- 
dale, FL 33309 (305) 975-9515. 
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Reader Service No. 139. 

HelpDOS is a menu-driven on- 
screen reference for PCDOS and in- 
cludes a technical dictionary. It re- 
quires PCDOS or MSDOS, version 2.0 
or later, and is available for $49.95 
from Help Technologies, P.O. Box 
50834, Palo Alto, CA 94303 (415) 
856-3431. Reader Service No. 141. 

Superkey, a resident keyboard en- 
hancer for data encryption and mac- 
ro processing, has been announced by 
Borland International, the Turbo 
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INNOVATIONS, INC. 
C86 for all PC-MSDOS computers. $395.00. Visa, 


Mastercard, personal check and corporate POs 980 Shrewsbury Avenue, 
accepted. 3 Tinton Falls, NJ 07724 (201) 542-5920 


Circle no. 96 on reader service card. 


121 


Pascal people. The program is basi- 
cally a shortcut to routine entry of of- 
ten-used commands, like those re- 
quired for logging onto RBBS services 
or formatting letters and spread- 
sheets. The user can bring up Super- 
key, move around in the program, 
and exit with single-keystroke opera- 
tions, as well as pull its full-screen 
macro editor down on top of the main 
program. It also provides on-line 
help, automatic recall of the last 20 
entered commands, cut and paste ca- 


pability, data encryption/decryption, 
and screen burn-in protection. Con- 
tact Borland International, 4113 
Scotts Valley Dr., Scotts Valley, CA 
95066 (408 ) 438-8400. Reader Service 
No. 143. 

SEE is an editor for “professional 
programmers” from Prologic Corp., 
31324 Via Colinas, Suite 111, West- 
lake Village, CA 91362 (818) 991- 
5062. Reader Service No.145. 

A new version of PC/Forth for the 
PC/AT, running under 80286 XENIX 


Dr. Dobh’s Journal 


Bound 
Volumes 


Every Issue Available 
For Your Personal Reference. 


We are pleased to offer this special discounted price to DDJ readers 
who order directly from us. From the nostalgia of Volume One—with 
authors like Steve Wozniak, Dennis Allison, Sol Libes, and more—to 
the technical maturity of Volume Seven, Dr. Dobb’s Journal Bound 
Volumes are the ideal addition to your reference collection. They con- 
tain many issues which are no longer available and you get twelve 
issues for the price of seven individual back issues! 


Send $26.75 for volume 1, $27.75 each for volumes 2-6, $30.75 for 
volume 7, or $165 for all seven and SAVE! 


Please add the following per book: $2.50 for UPS, $1.25 for U.S. Mail, 
or $3.25 for Foreign surface mail. Foreign Airmail rates available on 
request. Delivery times are one week for UPS or 6-10 weeks for U.S. or 


Foreign Mail. 


Mail To: Dr. Dobb’s Journal 
2464 Embarcadero Way, Palo Alto, CA 94303 
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3.0, has been announced by Labora- 
tory Microsystems, 3007 Washing- 
ton Blvd., Suite 230, PO. Box 10430, 
Marina del Rey, CA 90295 (213) 
306-7412. Reader Service No. 147. 

The Echo PC2 is a speech synthe- 
sizer card for the IBM PC. The manu- 
facturer, having previously provided 
similar products for the Apple, claims 
to be the first to produce one for the 
IBM PC. It features two speech 
modes: a limited vocabulary (about 
700 words) in a natural-sounding fe- 
male voice and an unlimited vocabu- 
lary in a robotic-sounding voice. Some 
400 English language and pronuncia- 
tion rules have been utilized to pro- 
duce the computer-synthesized 
speech. Software can control pitch 
and volume. The board fits into the 
PC’s short slots and comes with a 
speaker, software, and an instruction 
manual. The price is $149.95. Contact 
Street Electronics Inc., 1140 Mark 
Ave., Carpinteria, CA 93013 (805) 
684-4593. Reader Service No. 149. 

BIS7705 allows an IBM PC to emu- 
late all the functions of a Honeywell 
7700/7705 terminal. The price is 
$695, and it’s available from IE Sys- 
tems Inc., 112 Main St., Newmarket, 
NH 03857 (603) 659-5891. Reader 
Service No. 151. 


CP/M 80 

DSD80 is a fully DDT-compatible 
full-screen symbolic debugger for 
8080, 8085, and Z80-based CP/M 80 
systems. DSD80 includes port I/O, 
string searching, and symbol defini- 
tion. The Z80 instruction set is fully 
supported using either extended Intel 
or Zilog mnemonics. There is an on- 
line help facility, and the program 
comes with a 50-page user’s manual. 
The price is $125. Contact Soft Ad- 
vances, P.O. Box 49473, Austin, TX 
78765 (512) 478-4763. Reader Service 
No. 153. 

CP/M users needn’t feel left out in 
the cold by the latest fad of pop-up 
programs. Poor Person Software has 
announced Write-Hand-Man, which 
includes a notepad, phone book, desk 
calendar, file and directory viewing 
programs, and a communication pro- 
gram. Users familiar with CP/M pro- 
gramming can add new functions. 
Write-Hand-Man requires CP/M 2.2 
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al C l software, both backup files 
automatically, allow streamer or 
the performance of micro com- file oriented operation and file by 
puters. Our disk drives will easily file access of data. And, they do it 
handle a single logical volume up fast—our 4 inch tape drive oper- 
to 280 MBytes in size (unformat- ates at 5.4 MBytes per minute. 
ted) on the IBM-PC, XT, AT” and That means you can backup 60 
compatibles. Speed? Emerald MBytes, on one cartridge, in 11 
drives aren't just fast, they're . minutes. 


FAS7—no more trips to the Cost Effective 


coffee pot while files load. Einoraltt 
; a P products translate 
so ely delivers the “extras ; directly into dollars and “sense” 
e extras means support 0 Why pay mainframe prices to do 


the most popular Local Area a job your PC can accomplish for 
Networks, password access, 





280 MBytes in one volume 
Emerald Systems has broken 

the 32 MByte DOS barrier and 

shattered popular attitudes about 


When operated under Emeralds 
Backup and Restore Utility (BRU) 
























fracti ? 
support of the VENIX, XENIX, eee a of the cost 
QNX, PC/IX and DOS 3.x opera- Why don't you pick up the 


ting systems, and user con- 
figured, main-frame style, disk 
caching. Plus, you're not limited 
to one volume—use up to 24, if 
you need them, even on one 
physical disk. You can even 
spread one volume across two 
drives. You can have up to 240 
MBytes of formatted storage in- 
board your PC. Or, you can insert 
an Emerald sub-system, with 
integral backup and six PC 


phone? Dial (619) 270-1994, and 
ask to speak with an applications 
engineer. You can find out about 
our large installed customer 
base, learn about some of the 
applications environments our 
systems are performing in, or just 
request literature. Well even give 
you references in your area. Find 
out what your PC can do with a 
logical volume bigger than 


: 32 MBytes. 

expansion slots, right under your 
monitor, without increasing your 
PC's “footprint” even one inch. 
Backup protection 

Backup of large files is man- Emerald Systems 
datory. Emerald can supply you : Corporation 
with % inch, 60 MByte, cartridge Mainframe Storage for Micros 
or ¥2 inch, reel-to-reel, backup 4757 Morena Blvd. 
systems. The 2 inch system can San Diego, CA 92117 
even translate your mainframe Telex: 323458 EMERSYS 
(EBCDIC) files to ASCII. Easylink: 62853804 


Emerald 


Systems Corporation 





*IBM-PC, XT & AT™ IBM Corp. 

Mainframe Storage for Micros, 

Backup and Restore Utility, 

; : BRU, & Emerald ™ Emerald Systems Corp. 
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Replace 19 floppies 
with 1 diskette? 
TeamMate does it! 


Now your Apple lle can have high capacity data storage like a Winchester 
while you still enjoy the convenience and familiarity of a standard floppy. 


TeamMate’s flexible disk drive from Eastman Kodak gives you 2.78 mega- 
bytes of data storage on one rugged diskette. You get unlimited expand- 
able storage and access to Winchester capabilities...at a very low cost. 


Installation takes only minutes, thanks to TeamMate’s software transparency 
with ProDOS. No software drivers or modifications are needed. 


Here are the TeamMate subsystems available now: 





TM 2203...A single Kodak flexible disk drive giving you 2.78MB on one diskette. 

TM 2206... Two Kodak drives for a total of 5.56MB of online, expandable storage. 

TM 2210...10MB of Winchester storage, with the option of later adding a Kodak flexible drive. 
TM 2213...A 10MB Winchester combined with the Kodak 2.78MB flexible drive for built-in backup. 
TM 2232...32MB of Winchester storage—the ultimate in high performance mass storage. 





TeamMate Quantity Quantity Quantity 
Model 1-2 3-9 10+ 
TM 2203 $ 895 $ 761 $ 716 
TM 2206 $1295 $1101 $1036 
TM 2210 $1295 $1101 $1036 
TM 2213 $1695 $1441 $1356 
TM 2232 $2195 $1866 $1756 
Kodak 

Diskettes Sa. 18 $ 14 Sue 





All TeamMate subsystems include drive(s), controller TeamMate 
chassis, power supply, necessary cabling, and manual. Kodak 
subsystems include a Kodak diskette. 





Yes, | want to expand 


leame data storage on my Price includes UPS surface 
Apple lle. Please send shipping. 
CE] ine the following: Allow 3-4 weeks delivery. 
Quantity: 
TeamMate 2203@___ ea. Subtotal 
TeamMate 2206@__ se. CA & MA residents, 
add sales tax 
TeamMate 2210 @____———eaz. 
For optional UPS 
TeamMate 2213 @ ____——s€a. Blue Label delivery 
TeamMate 2232 @__ si. add $10 per unit 
Kodak diskettes @_ sea. Total Enclosed $ 
Ship To: 
PTET alae ei dekina ieee che Wot | ad Sate Payment Enclosed: 
C1) check 0) money order 
Address _ CJ cashier’s check 
NY Se es a eee i a et Make check payable to: 
Data Technology Corporation 
pea Ss a Sea ee ee ee ra Se ake Dept. TM-1A 





2525 Walsh Avenue 
Santa Clara, CA 95051 


For fastest delivery, call: 
In California, call collect: = ie Sil 
408-986-9545 , 
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and will run on all CP/M machines. 
The price is $49.95. The program is 
available from Poor Person Software, 
3721 Starr King Circle, Palo Alto, 
CA 94306 (415) 493-3735. Reader 
Service No. 155. 

MB+ Tools is a set of program- 
mer productivity tools for Pascal 
MT-+. It’s currently available for 
CP/M 80 and CP/M 86, and it should 
be available for MSDOS late this 
year. The price is $175. Contact Mi- 
chael Nunamaker, Minnow Bear 
Computers, P.O. Box 2233, Cham- 
paign, IL 61820-8233 (217) 398- 
6883. Reader Service No. 157. 


Macintosh 
MacCharlie is not a trampburger but 
a $985 box that attaches to the Mac- 
intosh and allows it to run programs 
written for the IBM PC. MacCharlie 
also allows Macintosh users to con- 
nect to IBM PC serial networks and to 
use IBM PC-compatible printers. 
Contact Robert Barrett at Dayna 
Communications, 50 South Main St., 
Suite 530, Salt Lake City, Utah 
84144 (801) 531-0600. Reader Service 
No. 153. 
Mighty Mac is a personal information 
manager priced at $99 from Ad- 
vanced Logic Systems at 1195 E. Ar- 
ques Ave., Sunnyvale, CA 94086 
(408 ) 730-0307. Reader Service No. 155. 
FileMaker (the third product in the 
MACWARE line) is a single-file data 
base system that allows a user to cre- 
ate a variety of custom-designed re- 
ports and forms that include text and 
graphics. FileMaker takes full advan- 
tage of the “visually active” Macin- 
tosh environment and functions with- 
in the Macintosh Office recently 
announced by Apple. Contact Fore- 
thought Inc., 1973 Landings Dr., 
Mountain View, CA 94043 (800) 
MACWARE. Reader Service No. 129. 


DD} 


Reader Ballot 
Vote for your favorite feature/article. 
Circle Reader Service No. 201. 
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Try a mainframe tradition 
on your microcomputer today... 


Desk Top 


Rack Mount 
Capacities 


Capacities 


event ay ee 1000 mb 


700 mb LL ! : ; | 960 mb 
pert 4 | | | : ; 480 mb 
170 mb 

85 mb 


The NMS PC 8000 Series 
e 8-inch technology-based storage 
e Access times of 15 milliseconds 


...National Memory Systems provides 


Desk top storage to 700 megabytes: 
With enhanced features for 1985, the NMS PC 8000 stays ahead of any herd with compact 8-inch 
technology Winchester Disk Storage systems ... used in mainframe and minicomputer installations. 
NMS originated use of these techniques in micro applications more than 18 months ago. We set 
the standard for high-capacity, high-performance mass storage systems. 


Compatibility: 
IBM PC-AT, XT, standard PC, and all compatibles, as well as aversion torun your Texas Instruments 
PC, too! Ask about our multifunction, single slot disk tape controller. 


Ideal for networking and distributed processing: 


You gain up to 5 times the speed of 5%-inch technology disk systems. NMS Disk Systems will not 
impose limitations on your computer. 


File-by-File Tape Back-up: 
Add our stand-alone PC.25 60 mb File-by-File and streamer -inch tape system, or '2-inch PC 9000 
Series, ANSI-IBM format compatible 9-track system, and you have the total solution. 


Laser Optical Disk: 
Be revolutionary with the 1 gigabyte NMS PC 007, a non-erasable archival system that gives you 
1000 megabytes of on-line data at 1/20th the cost of tape media. 


Easy Upgrades: 
Mix disk capacities, disk with tape, disk with Laser Disks to meet National 
your needs. One single-slot controller does it all. Memory 
Call Us: 3 ? Systems 
All products provided by NMS are protected with our standard CORPORATION 


1-year warranty, and optional Nationwide field services program. 


355 Earhart Way 
Livermore, CA 94550 


Phone 415-443-1669 5) eas 


TWX 9103866006 
TELEX 821892NMSUD 
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INO waiting! 









SU elem eta mentee th 


Dyas ae @ 3 ye Ete 


dBiICompiled code can use both dBASE II and dBase II data files, eliminating the need to con- 
vert from one format to another. And dBUICompiler’s unique design lets you concentrate on 
your dBASE program rather than complex memory management problems. 


INDEPENDENCE 


Buy dBiliCompiler once, and compile and distribute as many applications as necessary at no 
additional cost. WordTech imposes no license fees, and compiled applications will execute 
without dBASE III or RunTime® 


mcwees 4.0. \o bade sb a Bye 


Versions exist for MS-DOS, as well as for the IBM PC. Cross-environment linkers between ver- 
sions enable you to run your dBASE III programs on most MS-DOS machines. 


we} ado 9B. 


Compiled applications run faster than under the dBASE III interpreter, and are more compact. 


SECURITY 


Compilation is the best way of protecting your program source code. 





Suggested retail price: $750; Cross-environment linkers: $100 Special introductory offer 
(expires July 31, 1985); dBII[Compiler and one cross linker: $750 


Site licenses available 


VWORDTECH SYSTEMS 


Circle no. 51 on reader service card. ever for Thinkers ALLO bow; 
WORDTECH SYSTEMS INC. P.O, Box-4 747 Orinda, CA 9 | 
: ef Atal otG) 
dBASE III, dBASE II, dBASE, RunTime ” ee = z Ses 


a » Ashton-Tate, Inc. MS-DOS: Microsoft. Inc. IBM PC International Business Machines, Inc 














PERFORMANCE ACCELERATORS 
FOR CP/M-80 & MP/M-80 


WSOPTION for WORDSTAR 3.0 & 3.3 (installs itself: 


right into WordStar) 


FAST 
Speeds up action of WordStar functions so you spend 
less time waiting for WordStar to take action on your 
commands. 
PRODUCTIVE 

A superior print-while-edit capability is included. You 
can now use one terminal or micro to edit one file while 
printing another without reducing your typing speed! 


CONVENIENT 
At print time you can select 1 of 4 printers under CP/M 
or 1 of 8 printers under MP/M. Under MP/M you do a 


proper attach and detach of the printer so it is always 
free when you are not using it. You are informed if the 
printer is in use at print time so you do not hang up. 
Many additional features installed via menu. 


MPMPLUS for MP/M-80 
A group of programs and modules designed to im- 
prove your console and disk response under MP/M-80. 
A performance increase of 2 to 3 times is usual for 
disk 1/0. 
Send $35.00 for each item plus $2.00 postage. 


INCLUDE DISK FORMAT REQUIRED 
Continuum Microsystems Ltd. Use your Visa 
21 McCarty Crescent or M.C. 
Markham, Ontario 
Canada L3P 4R4 (416) 294-8536 
WordStar reg. MicroPro, CP/M MP/M reg. D.R.I. 
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conor BUSTER Se 
ce 


CONVERT THE RGB OUTPUT OF YOUR 
COLOR BOARD FOR THE I1Bnm FC OR AN Iipm 
Fc COMPATIBLE TO COMPOSITE B/W WITH 


tS At EVES (OF GRAV 


FUN ALL APPLICATIONS REQUIRING A 
ENE SY A ET 
COLOR MONITOR ON YOUR COMPOSITE BLACK 


AND WHITE MONOCHROME DISPLAY 


WIiITthi THE ABILITY TO ELIMINATE OR 
a aS 
HIGHL IGrHiTt ANY COL OR GROUP, THE cort.oRrR 
(ae rceneere Eo 
BUSTER OUTPERFORMS ANY OTHER COLOR ro 


BYW CONVERTER AVAILABLE .- 


BiUiy YOURS TODAY AT THIS SPECIAL 
INTRODUCTORY PRICE FOR A LIMITED TIME 


ONLY 


ONLY eaoa9go.95 


C(Cmi2z2e7r- residents aca S- St ta~> 


STS ENTERPRISES 
33269 ARLENE WAY 
LIVERMORE, cA 74s55e 


<a15>) 455 -S53358 
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fic FOR THE BEST OF US... fic 
1. THECYPHER® — “it 
A COMPLETE 68000 & Z80A 


SINGLE BOARD COMPUTER SYSTEM 
WITH ULTRA-HIGH-RES GRAPHICS!! 





Users’ 
Group 


Over 45 volumes of 


public domain software 
including: 


compilers 
editors 
text formatters 
communications 
packages 
e many UNIX-like tools 


Write or call for more details 
The C Users’ Group 


415 E. Euclid e Box 97A 
McPherson, KS 67460 
(316) 241-1065 
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No source code for 
your REL files? 


REL/MAC 


converts a REL file in the Microsoft™ 
M80 format to a ZILOG™ or 8080 source 
code MAC file with insertion of all public 
and external symbols. 


e@ REL/MOD lists library modules 

e REL/VUE displays the bit stream 
e@ 50 page manual with examples 

@ free brochure available 

e@ REL/PAK includes all of the above 


REL/PAK for 8080 only ............... 
REL/PAK for Z80 & 8080 ............. $134.95 
on 8’SSSD disk for CP/M™ 2.2 


Send check, VISA, MC or C.O.D. to 


[SEP MicroSmiri 


COMPUTER TECHNOLOGY 


PO. BOX 1473, ELKHART, IN 46515 
1-800-622-4070 
(Illinois only 1-800-942-7317) 


OPE POPE POD OPE POE POPE OTD Per POP L, For Per Fre Te eee eR aE PR Oe oc hoe tn oe Bee oon ele 
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ICs PROMPT DELIVERY!!! 


SAME DAY SHIPPING (USUALLY) 


OUTSIDE OKLAHOMA: NO SALES TAX 


DYNAMIC RAM 
256K 256Kx1 150ns $ 4.99 


















PROGRAM PACKAGING DISKS, SUPPLIES 


¢ IBM style cloth binders and slips for 514 x 814. 
Imprinting available in small quantities. 

e Vinyl binders for 514 x 814 and 81% x 11 with 
clear pockets on front and spine for labeling. 

e Vinyl packaging in several styles. 

e Floppy disk pages for 51% and 31% disks. 

¢ Continuous paper for IBM size binders with 
3 holes punched. 2500 sheets for only $40.00. 
e 514, DS/DD bulk disks—$149/100. No labels 
or envelopes. Blank & printed envelopes & 
labels available. 

e Low prices on packaged disks—BASF, 
KODAK, Elephant, Memorex. Disks for IBM AT 
and Mac in stock. 


¢ Many other products. Call or write for 
FREE CATALOG. Fast service. 


Anthropomorphic 


Systems, Limited 
Department DDJ 
376 E. St. Charles Road 


Lombard, IL 60148 
in aot Weis (312) 629-5160 
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Y Advanced 


Trace8s6"™ 


Symbolic Debugger & Assembler Combo 


Full-screen trace with Single stepping; 
Even backstepping! 


Write & Edit COM & EXE programs 
Conditional breakpoints (programmable) 


Switch between trace and output screen; 
Or set up two monitors 


8087, 80186, 80286, 80287 support 
Write labels & comments on code 
Polish hex/decimal calculator 
and more... Priced at $175.00 


To order or request more information contact: 


M Morgan Computing Co., Inc. 


2520 Tarpley Rd. Suite 500 


(214) 245-4763 Carrollton, TX 75006 
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Now With Windowing! 
$49.95 Basic Compiler 


MTBASIC 


Features: 
Multitasking Windowing 




























2732A 4Kx8 250 ns 3.95 
2716 2Kx8 450 ns 2.95 
STATIC RAM 
6264LP-15 skxs 150 ns $8.75 
6116LP-3 2kxs8 150 ns 2.50 


OPEN 62 DAYS: WE CAN SHIP VIA FED-EX ON SAT. 


interpreter. MTBASIC compiles a typical 100 line Basic pro- 
gram in 1 second, yet it generates blindingly fast code. No 
more waiting for long compiles. 


5'2” OR 3'2" WD 2793) (MUSIC! ROBOTICS! LAB WORK’) 
@ DMACONTROLLER FOR FAST IMAGE TRANSFERS TO. ® 16K TO 64K MONITOR EPROM 

FROM VIDEO MEMORY. {INT 8237) @ 4K TO 64K STATIC RAM 
e@ PROGRAMMABLE BAUD RATE GENERATOR 
© 24 BIT ADDRESS MANAGEMENT FOR Z80. e@ PARALLEL ASCII KEYBOARD INPUT 
@ 4 LAYER PCB (9"«" x 14°") ® FULL 68000 EXPANSION BUS (50 PIN HEADER 
@ RUNS CP-M-80 2.2. CP-M-80 3.0. CP-M-68K. CYPHER BUFFERED) 

DOS. RAM DISK. 68000 BASIC IN ROM. NEC 7220 

TERMINAL EMULATION... 

iAens LOWER PRICES! NOW | MEGABYTE CYPHER AVAILABLE 


2 RS232 SERIAL PORTS (ZSIO) 


Ae) 
> 
io yeae 
< <O Handles int ts _ Interact 
e fo) andies interru nteractive 
68000 FORTH | - 6000 FORTH eeem@ 128K 128Kx1 150 ns 10.99 fee j ickl 
AND i oer ys 64K eater 10 He 210 ‘ Fast native code Compiles quickly 
: 7 x 5 : ° 
CYPHER-DOS CYPHER-DOS oad fe) Floating point No runtime fee 
— “cna me 64K cakx1 150s 1.40 Js oe 
me 
ON : AND aes EPROM ” MTBASIC is a true native code compiler. It runs Bytes's Sept. 
68000 BASIC) : 68000 BASIC) pe) 5 27C256 32kKx8 250 ns $20.99 O ‘81 seive in 26 seconds; interpreters take over 1400 seconds! 
ham 8627256 32Kx8 250ns_ 15.27 “3 Because MTBASIC is multitasking, it can run up to 10 Basic 
a 3 2712 ; Ww routines at the same time, while displaying ten separate win- 
338 og FAS SA 5 2 C 8 16Kx8 250 ns 9.17 S dows. Pop-up/down menus are a snap to implement. 
© 66 ( . SOLUTION GRAPHICS. 128K. PRO- : ; 
WOn.os ORONO mea oe cra MABLE UP 70 10241924 RESOLUTION NEC = a 27064 akx8 200 ns 8.15 > MTBASIC combines the best of interpreters and compilers. To 
hos * REAL TIME CLOCK (MULTITASKING CAPABILITY") a4 2764 8Kx8 250 ns 3.64 - the programmer, MTBASIC appears to be an extremely fast 
@ DOUBLE DENSITY FLOPPY DISK CONTROLLER (8 @ TWOCHANNELS OF D/AAND A/D. 12 BIT RESOLUTION rT w < 
n= 
=, 
mire fo) 
e FA 
ae 


AVAILABLE for CP/M (Z-80) and PC-DOS systems. 


ORDERING: Specify format when ordering. We accept Visa. 
MC. checks and COD. Send $49.95 plus $3.50 shipping and 





@ MANUAL $20.00 © COMPLETE “CYPHER” WITH 1 MEGABYTE 








@ BARE BOARD. EPROMS. Z80 BIDS. 68000 B 10> DRAM. 128K VIDEO ORAM. NEC 7220 REAL handling ($10 overseas) to: 
runes Se $399.95 eee iat amon meat $1399.95 MasterCard VISA or UPS CASH COD ) 
* (Son VIDEO DRAM NEC 7220 REAL TIME eKEYSOARO * Soa 95 Factory New, Prime Parts UF oo 
OE Bee REN WN ag ROME eee oe “e495 MICROPROCESSORS UNLIMITED 
PART XPANDED MEMORY OPTIONS - INOUIRE. ee re nn eee es 24,000 S. Peona Ave. (91 8) 267-4961 
mE Sens. sa gegen te, Prices shown above are or Api 2,18 P.O, Box 2412 Columbia, MD 21045-1412 
aes er eae MOTEL COMPUTERS LIMITED Piease call lor current paces Pnces subject to change Please expect migher of lower paces on e . ’ 


174 BETTY ANN DRIVE, WILLOWDALE, 
TORONTO, ONTARIO, CANADA M2N 1X6 
(416) 221-2340 


some parts due lo suppty & demand and our eee Shipping & insurance extra Cash 
G@scount paces shown Orders received by 6 PM CST can usually be delivered to you by the 
next morning, vie Federal Express Standard Air « $6.00, or Priority One « $11.50! 


301/792-8096 
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NEW FEATURES 


(Free update for our early customers!) 
e Edit & Load multiple memory 
resident files. 
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SQUEEZE More Out OF 
On-LINE MINUTE. 


aa EMA DAtIA TOS UG 


_ COMMUNICATIONS SOFTWARE 


Presenting the software 
package that makes your 
computer more productive 
and cost-efficient. 


CompuServe's new Vidtex™ is compatible 
with many personal computers sold today 
(including Apple® Commodore® and 
Tandy/Radio Shack® brands). And it offers 
the following features*—and more-to let 
you communicate more economically 
with most time-sharing services (including 
CompuServe'’s Information Service). 


Auto-Logon. Lets you log on to a host 
simply and quickly by utilizing prompts 
and responses defined by you. Also allows 
quick transmission of predefined responses 
to host application programs after 

logging on. 


Function Keys. Let you consolidate ™ 
long commands into single keystrokes. 
Definitions can be saved to and loaded 
from disk file, allowing multiple definitions 
for multiple applications. 


Error-Free Uploading and Down- 
loading. CompuServe “B’ Protocol con- 
tained in Vidtex lets you transfer from 
your computer to CompuServe and from 
CompuServe to your computer anywhere 
in the country. Also provides error-free 
downloading from CompuServe’ exten- 
sive software libraries. 


Full Printer Support. Printer buffer 
automatically buffers characters until 
printer can process; automatically stops 
on-line transmission when full; and 
automatically resumes transmission 
when capacity is re-established. Also, lets 
you print contents of textual video screen 
or RAM buffer at any time. 


*Some versions of the Vidtex software do not implement all features listed 


Vidtex is a trademark of CompuServe, Incorporated. Apple is a trademark registered to Apple Computer, Inc. Commodore isa 
trademark of Commodore Business Machines Radio Shack is a trademark of Tandy Corp. 





Capture Buffer. Saves selected 
'_ parts of a session. Contents can be 
written to a disk file; displayed both on and 
off line: loaded from disk; and transmitted 
to the host. 


On-line Graphics. Integral graphics 
protocol displays stock charts, weather 
maps and more. 


If you are already a CompuServe sub- 
scriber, you can order Vidtex on line by 
using the GO ORDER command. Other- 
wise, check with your nearest computer 
dealer: or to order direct, call or write: 


CompuServe 


P.O. Box 20212, 5000 Arlington Centre Blvd. 
Columbus, Ohio 43220 


1-800-848-8199 


In Ohio, call 614-457-0802 
An H&R Block Company 
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They said it couldn’t be done. 
Borland Didit. Turbo Pascal 3.0 


The industry standard TURBO TURBO MS The best just got better: 
With more than 250,000 users worldwide Turbo 3.0 2.0 PASCAL /ntroducing Turbo Pascal 3.0 


Pascal is the industry's de facto standard. Turbo 

Pascal is praised by more engineers, hobbyists, 

students and professional programmers than any 

other development environment in the history of e First, the world’s fastest Pascal compiler just got 

microcomputing. And yet, Turbo Pascal is pe! | faster. Turbo Pascal 3.0 (16 bit version) compiles 

simple and fun to use! | Z twice as fast as Turbo Pascal 2.0! No kidding. 

e Then, we totally rewrote the file I/O system, and 
we also now support I/O redirection. 

e For the IBM PC versions, we've even added 





We just added a whole range of exciting new 
features to Turbo Pascal: 







COMPILATION SPEED “turtle graphics” and full tree directory support. 
e For all 16 Bit versions, we now offer two addi- 
EXECUTION SPEED tional options: 8087 math coprocessor support 
for intensive calculations and Binary Coded 
CODE SIZE Decimals (BCD) for business applications. 


e And much much more. 


BUILT-IN INTERACTIVE EDITOR The Critics’ Choice. 

















Jeff Duntemann, PC Magazine: “Language 
py sre ce deal of the century . . . Turbo Pascal: It 
introduces a new programining environment and 
COMPILER SIZE runs like magic.” 
Dave Garland, Popular Computing: “Most 
TURTLE GRAPHICS Pascal compilers barely fit on a disk, but Turbo 
Pascal packs an editor, compiler, linker, and run- 
BCD OPTION time library into just 39K bytes of random- 
access memory.” 
PRICE Jerry Pournelle, BYTE: “What | think the 
: computer industry is headed for: well , 
documented, standard, plenty of good features, « 
. noc be POere ig ec cen and a reasonable price.” 
Portability. — sell Wier vests te Te Re peaaeaets hs oe: 
Turbo Pascal is available today for most com- Seidel” program out of Alan R. Miller’s book: Pascal programs for 
puters running PC DOS, MS DOS, CP/M 80 or Scientists and engineers (Sybex, page 128) with a 3 dimensional 
CP/M 86. A XENIX version of Turbo Pascal will non-singular matrix and a relaxation coefficient of 1.0. 


soon be announced, and before the end of the 
year, Turbo Pascal will be running on most 68000 is 
based microcomputers. me 

An Offer You Can't Refuse. 


Until June 1st, 1985, you can get Turbo Pascal 3.0 

for only $69.95. Turbo Pascal 3.0, equipped with 

either the BCD or 8087 options, is available for an 
additional $39.95 or Turbo Pascal 3.0 with both options 
for only $124.95. As a matter of fact, if you own a 16- 
Bit computer and are serious about programming, you 
might as well get both options right away and save 
almost $25. 


____ Update policy. 
___ As always, our first commitment is to our customers. 

You built Borland and we will always honor your support. 
ur upgrade to the exciting new version of 
jill accept your original Turbo 
container) for a trade-in credit 

‘iginal disk for $59.95. This 
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